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S.B.  Murray 


ABSTRACT  ( 

A  computer  model  to  calculate  the  development  of  wall  jet 
boundary  layers  downstream  of  multiple  film-cooling  slots  is  described. 

The  differential  equations  for  the  conservation  of  mass,  momentum  and 
energy  in  an  incompressible  two-dimensional  or  axisymmetric  flow  are  solved 
using  a  downstream-marching,  iterative,  implicit,  finite-difference  scheme. 
The  turbulent  transport  of  mass  in  a  conventional  wall  boundary  layer  is 
described  by  means  of  an  inner-outer  two-layer  eddy-viscosity  model  based 
on  the  Prandtl  mixing-length  hypothesis  with  Van  Driest' s  modification  in 
the  near-wall  region.  Further  alterations  to  include  the  effects  of 
pressure  gradients,  heat  and  mass  transfer  are  due  to  Cebeci  and  Smith. 

This  basic  model  is  extended  to  include  cases  with ''tangential  fluid  in¬ 
jection. 


Computed  velocity  profiles  indicate  that  the  law  of  the  wall 
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ABSTRACT  (Cont'd) 

'‘obeyed  in  the  inner  layer  and  that  the  outer  wake-like  layer  strives  to 
resume  the  velocity-defect  relationship  that  existed  upstream  of  the  - 
point  of  fluid  injection  in  zero  pressure-gradient  flow  with  no  heat 
or  mass  transfer. 

Comparison  between  computed  and  experimental  adiabatic  wall 
temperature  distributions  in  flows  with  heat  transfer  shows  that  the 
eddy-viscosity  model  is  deficient  in  the  near-slot  region  and  tends  to 
overestimate  film-cooling  efficiency.  The  absence  of  an  eddy  term  to 
account  for  turbulence  due  to  finite  slot  lip  thickhess  is  partly  res¬ 
ponsible  for  this  overestimation. 

Recommendations  are  made  to  validate  the  model  in  pressure- 
gradient  flows  and  to  improve  the  predictive  capability  in  the  near-slot 
region. 

(U) 
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NOMENCLATURE 


denotes  functional  relationship  in  dimensionless  velocity-profile 
expression. 

is  Van  Driest1 s  damping-length  parameter  or  a  coefficient  of  u  , 
in  the  tridiagonally-banded  system  of  equations.  m,n-i 

is  a  constant  in  the  dimensionless  velocity-profile  expression. 

is  a  coefficient  of  u  in  the  tridiagonally-banded  system  of 
equations.  m,n 

is  a  coefficient  of  u_  in  the  tridiagonally-banded  system  of 
equations.  ,n 

is  the  injection  slot  width. 

is  the  injection  slot  length. 

is  the  constant  term  in  the  tridiagonally-banded  system  of  equations, 
denotes  a  functional  relationship, 
is  a  constant  in  the  momentum  equation. 

is  the  height  of  the  finite-difference  grid  in  the  y-direction. 
is  the  mixing  length. 

is  the  distance  in  the  x-direction  from  the  injection  slot  entrance 
to  the  downstream  end  of  the  finite-difference  grid. 

is  a  dimensionless  mass-flow  parameter  in  Mukherjee's  correlation,  or 
m  is  the  streamwise  station  number  in  the  finite-difference  grid. 

is  the  total  number  of  streanwise  stations  in  the  finite-difference 
grid. 

is  the  transverse  station  number  in  the  finite-difference  grid. 

is  a  parameter  to  account  for  pressure-gradient,  heat  and  mass  transfer 
effects  in  Van  Driest's  modification  to  the  mixing  length  in  the  near¬ 
wall  region,  or  N  is  the  total  number  of  transverse  stations  in  the 
finite-difference  grid. 


NOMENCLATURE  -  Symbol s  (cont'd) 
p  is  static  pressure. 

p+  is  a  dimensionless  pressure-gradient  parameter. 

Pr  is  the  molecular  Prandtl  number. 

Fr  is  the  turbulent  Prandtl  number 

q  is  an  arbitrary  parameter  that  is  a  function  of  x  and  y. 

r  is  the  local  radius  in  axisymmetric  flow. 

R  is  the  gas  constant  for  main  and  injected  streams. 

Re„  is  Reynolds  number  based  on  the  injection  slot  width  and  mean  injection 
velocity. 

T  is  static  temperature. 

T'  is  the  fluctuating  component  of  static  temperature,  or  T1  is  static 
temperature  from  a  previous  iteration  or  station. 

u  is  the  streamwise  component  of  fluid  velocity. 

u'  is  the  fluctuating  component  of  streamwise  velocity. 

v  is  the  transverse  component  of  fluid  velocity. 

v'  is  the  fluctuating  component  of  transverse  velocity. 

vw  is  the  velocity  of  fluid  being  transferred  across  the  wall. 

vw+  is  a  dimensionless  mass-transfer  parameter. 

w  is  the  thickness  of  the  slot  lip. 

x  is  the  streamwise  coordinate  (measured  along  the  wall). 

Ax  is  the  streamwise  grid  interval. 

y  is  the  transverse  coordinate  (measured  normal  to  the  wall). 

Ay  is  a  characteristic  transverse  grid  interval. 

Ay!  is  the  transverse  grid  interval  in  the  grid  zone  closest  to  the  wall. 

That  is  Ay!  =  Ay  for  0  < y  <  d2 /2 . 


iv 


NOMENCLATURE  -  Symbols  (cont'd) 


Ay2  is  the  transverse  grid  interval  in  the  intermediate  grid  zone.  That 
iSAy2=  10  Ay  for  dj/2  sy  <2dj . 

Ay 3  is  the  transverse  grid  interval  in  the  outer  grid  zone.  That  is 
Ay3  =  100  Ay  for  2dj  <y  <H. 

a  is  the  molecular  thermal  conductivity. 

at  is  the  eddy  thei  al  conductivity. 

6  is  the  nondimensional  distance  in  Mukherjee's  film-cooling  correlation. 

6  is  the  boundary-layer  thickness. 

n  is  the  film-cooling  efficiency  in  Mukherjee's  film-cooling  correlation. 

k  is  von  Karman's  mixing-length  constant  (equal  to  0.435  in  this  report). 

x  is  a  proportionality  constant  relating  the  mixing  length  in  the  outer 

region  to  boundary-! aye r  thickness. 

v  is  molecular  dynamic  viscosity. 

v  is  molecular  kinematic  viscosity. 

is  eddy  (kinematic)  viscosity. 

p  is  static  density. 

t  is  local  shear  stress. 

Subscripts 

e  is  in  reference  to  the  edge  of  the  boundary  layer, 

w  depicts  a  value  at  the  wall. 

1  refers  to  the  condition  of  the  hot  gas  or  main-stream  fluid. 

2  denotes  the  condition  of  the  cooling  air  or  injected  fluid. 

Superscripts 

k  is  zero  for  plane  flow  and  unity  for  axisymmetric  flow. 

+  refers  to  dimensionless  quantities. 


v 


UNCLASSIFIED 


DEFENCE  RESEARCH  ESTABLISHMENT  SUFFIELD 
RALSTON  ALBERTA 


SUFFIELD  TECHNICAL  PAPER  NO.  507 


A  CALCULATION  METHOD  FOR  CONVECTIVE  HEAT  AND  MASS 
TRANSFER  IN  MULTIPLY-SLOTTED  FILM-COOLING  APPLICATIONS  (U) 

fay 

S.B.  Murray 

1.  INTRODUCTION 

This  report  describes  a  computer  model  intended  for  use  in 
the  calculation  of  wall  jet  boundary  layers  downstream  of  multiple  film¬ 
cooling  slots.  This  model  was  developed  at  DRES  as  part  of  work  to 
determine  specifications  for  future  military  acquisitions. 

Both  at  the  time  the  project  began  and  at  time  of  writing 
the  author  is  not  aware  of  any  computer  model  that  is  available,  either 
commercially  or  through  governmental  sources,  that  fulfills  the  particul 
requirements,  in  part  or  in  full,  of  the  present  application.  Although 
the  theory  of  turbulent  flows  has  been  a  subject  of  interest  for  several 
decades,  from  the  point  of  view  of  commercial  software,  the  development 
of  application  packages  is  still  in  its  infancy.  For  this  reason,  the 
author  elected  to  write  a  special  purpose  program  in  order  to  meet  the 
specific  requirements  of  the  aforementioned  studies. 
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Briefly,  the  model  is  applicable  to  incompressible,  turbulent 
wall  jet  boundary  layers  with  pressure-gradient,  heat-transfer  and  mass- 
transfer  effects  in  flows  over  two-dimensional  or  axisymmetric  bodies 
with  multiple  film-cooling  slots.  For  the  engineering  nature  of  the 
present  work  a  relatively  simple  mixing  model  and  differencing  scheme 
have  been  employed.  The  theoretical  model  is  described  in  Section  2  and 
details  regarding  the  solution  procedure  are  outlined  in  Section  3.  Com¬ 
parisons  of  prediction  to  experiment  are  presented  in  Section  4.  Docu¬ 
mented  listings  and  a  description  of  the  program  are  included  in  Appendix 
A,  while  a  user's  guide  and  sample  run  appear  in  Appendix  B. 

2.  THE  THEORETICAL  MODEL 

The  theory  described  in  this  report  is  based  on  numerical  solu¬ 
tion  of  the  two-dimensional  or  axisymmetric,  turbulent  boundary-layer 
equations  using  a  downstream-marching,  iterative,  implicit,  finite- 
difference  method.  The  turbulent  transport  terms  in  the  boundary-layer 
equations  are  described  by  means  of  a  two-layer  eddy-viscosity  model 
intended  for  use  in  the  calculation  of  conventional  turbulent  wall  boundary 
layers.  This  model  has  been  extended  to  cases  with  tangential  fluid  in¬ 
jection. 

2.1  The  Governing  Boundary-Layer  Equations 

The  present  calculations  employ  the  incompressible  turbulent 
boundary-layer  equations  in  terms  of  time-averaged  mean-flow  quantities. 

For  flow  about  two-dimensional  and  axisymmetric  bodies  at  high  Reynolds 
number  the  governing  equations  are: 

Continuity 


(rkpu)  +  —  (rkpv)  =  0 
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Energy 
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State 


p  =  pRT 


(4) 


with  the  following  Boussinesq  eddy-diffusi vity  assumptions  for  the 
Reynolds  stress  and  heat-transfer  terms: 


-pU  '  V1  =  p  Vi.  — 

ay 

1 T 
ay 


-PTV 


pat  ~ 


(5) 


The  exponent  k  is  equal  to  zero  for  plane  flow  and  equal  to 
unity  for  axisymmetric  flow.  The  coordinate  system,  shown  in  Figure  1, 
is  curvilinear  in  which  x  and  y  are  distances  along  and  normal  to  the 
body  surface,  with  u  and  v  the  velocity  components  within  the  boundary 
layer  in  the  x-  and  y-directions,  respectively.  The  static  pressure,  p, 
is  assumed  to  be  independent  of  y  with  quantities  T,  p  and  p  being  the 
local  fluid  temperature,  density  and  dynamic  viscosity,  respectively. 

The  eddy  viscosity,  vt>  and  eddy  thermal  conductivity,  a^,  are  related 
by  the  turbulent  Prandtl  number: 


Pr.  = 


(6) 


The  boundary  conditions  associated  with  the  above  equations 


are: 


Momentum 


u(x,0)  =  0, 
v(x,0)  -  vw  and 

lim  u(x,y)  *  u  (x) 

y-wo 


(7) 
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Energy 


T(x,0)  =  T 


or 
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arr 
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and 


1 im  T(x,y) 
y-*» 


Te(x) 


y  (8) 


where  subscripts  w  and  e  denote  conditions  at  the  wall  and  at  the  outer 
edge  of  the  boundary  layer,  respectively.  These  equations  fulfill  the 
requirements  of  no  slip  or  mass  injection  at  the  wall  as  well  as  pre- 
cribing  the  streamwise  distribution  of  either  wall  temperature  or  heat 
flux.  Tho  outer  edge  velocity,  ue(x),  and  static  temperature,  Tg(x),  are 
obtained  from  experiment  or  an  inviscid  flow  calculation  and  must  be  con¬ 
sistent  with  the  streamwise  distribution  of  static  pressure,  p(x). 

2.2  The  Turbulent  Transport  of  Momentum 

Shear  stress  in  a  conventional  turbulent  wall  boundary  layer 
is  treated  herein  by  the  use  of  a  two-layer  eddy-viscosity  model  based 
on  Prandtl's  mixing-length  hypothesis  and  employing  a  modified  version 
of  Van  Driest1 s  (1956)  analysis  in  the  near-wall  region. 

2.2.1  The  inner  region 

In  the  inner  region,  where  response  to  changes  in  energy  supply 
is  immediate,  the  eddy  viscosity  is  given  by: 


vt  =  kVH  -  exp(-y/A)]2 |fy|  (9) 

where  k  is  von  Karman's  mixing-length  constant,  equal  to  0.435,  and  A 

is  Van  Driest' s  damping-length  parameter,  26v(x  /p)"*5.  Here  t  is  the 

w  w 

wall  shear  stress  and  v  is  the  local  fluid  kinematic  viscosity.  Van 
Driest' s  modification  results  in  a  continuous  distribution  of  shear  stress 
from  the  laminar  value  iii  the  viscdus  sublayer,  through  the  transition 
layer  where  laminar  and  turbulent  components  of  shear  stress  are  compar¬ 
able,  and  out  into  the  fully  turbulent  layer. 
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As  it  stands.  Equation  9  is  applicable  to  incompressible 
boundary  layers  with  negligible  pressure-gradient  and  heat-transfer 
effects  and  zero  mass  transfer.  By  following  Van  Driest's  modelling 
of  the  viscous  sublayer  Cebeci  and  Smith  (1974)  have  generalized  the 
damping-length  parameter  to  account  for  these  variations.  In  their 
formulation  this  parameter  is  given  by: 


where  N  is  a  factor  defined  below. 

For  flows  with  no  mass  transfer: 


N 


When  mass  transfer  effects  are  included: 

\  2 


e  W 


v  * 
w 


1  -  exphl.8^  vw+ 


+  exp  (11 .8—  v  + 
\  v  w  ; 


(12) 


The  dimensionless  pressure-gradient  and  mass-transfer  parameters,  p+  and 
vti+ ,  are  defined  by: 

=  and  <’3> 
x  e 


w 


(14) 


where  u  is  the  friction  velocity  at  the  wall,  (t  /p  )J*,  and  v  is  the 

X  WWW 

velocity  of  the  fluid  which  is  being  transferred  across  the  wall. 


2.2.2  The  outer  region 

In  the  outer  wake-like  region  of  a  conventional  turbulent 
boundary  layer  the  characteristic  time  scale  of  the  flow  is  very  much 
larger  than  that  of  the  inner  region.  Ideally,  the  calculations  should 
account  for  long  turbulence  decay  times  so  that  the  distribution  of  eddy 
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viscosity  at  any  particular  streamwise  location  depends  on  the  upstream 
development  of  the  outer  layer. 

One  particularly  accurate  model  for  this  region,  based  on  the 
experimental  findings  of  Wygnanski  and  Fiedler  (1968)  about  the  concept 
of  intermittency,  is  presented  by  Dvorak  (1973).  His  approach  correlates 
the  development  of  the  outer  region  with  conventional  boundary- layer 
parameters  such  as  the  displacement  thickness,  &* ,  and  shape  factor,  H. 
Unfortunately,  this  model  is  not  very  well  suited  to  flows  with  large 
density  gradients  typical  of  the  present  application,  since  6*  and  H  take 
on  values  which  are  outside  the  range  over  which  the  experimental  data  of 
the  above  researchers  is  valid.  As  a  result,  since  implementation  of  the 
model  at  present  is  in  support  of  film-cooling  design,  the  approach  due  to 
Dvorak  has  been  abandoned. 

One  suitable  alternative  is  to  employ  the  mixing-length  theory 
but  with  a  mixing-length  formulation  representative  of  the  activity  in  the 
outer  wake-like  portion  of  the  layer.  Whereas  the  mixing  length  in  the 
inner  region  is  proportional  to  distance  from  the  wall,  Escudier  (1965) 
suggests  that  in  the  outer  region  the  mixing  length  should  be  proportional 
to  the  overall  boundary  layer  thickness  so  that: 

l  =  \6  and 

vt=A262|f^|  for  —  <  y  ^  6  .  (15) 

Patankar  and  Spalding  (1968)  recommend  values  for  A  and  k  of  0.09  and 
0.435,  respectively.  For  y  <  X6/k  the  inner-layer  model  of  Equation  9 
(with  Cebeci  and  Smith's  modifications)  is  applied. 

2.2.3  Extension  to  tangential  injection 

The  eddy- viscosity  model  just  presented  is  intended  for  use  in 
the  calculation  of  conventional  wall  boundary  layers.  In  the  present  work, 
it  has  been  extended  to  include  tangential  fluid  injection  in  a  manner 
similar  to  that  of  Pai  and  Whitelaw  (1970)  and  that  of  Dvorak. 

As  shown  in  Figure  2,  there  are  two  distinct  types  of  wall  jet 
boundary  layers  for  the  purpose  of  the  present  discussion.  In  case  1, 
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the  wall  jet  does  not  possess  enough  momentum  to  completely  entrain 
the  remnant  of  the  main-stream  boundary  layer.  This  gives  rise  to  a 
velocity  profile  with  a  local  jet  maximum  and  a  distinct  velocity 
minimum.  In  case  2,  the  wall  jet  has  sufficient  momentum  to  consume 
this  layer  completely.  The  resulting  velocity  profile  exhibits  a  wall 
jet  maximum  but  no  velocity  minimum. 

In  order  to  construct  an  eddy-viscosity  profile  which  is  con¬ 
sistent  with  a  given  velocity  distribution,  it  is  assumed  that  as  long 
as  a  wall  jet  maximum  is  present,  the  jet  region  and  the  remnant  of  the 
main-stream  boundary  layer  behave  as  independent  entities.  The  simple 
two-layer  model  presented  in  2.2.1  and  2.2.2  is  used  to  formulate 
the  eddy-viscosity  profile  in  the  wall  jet,  starting  at  the  wall  and 
working  outward  into  the  fully  turbulent  region.  The  boundary-layer 
thickness  used  in  this  calculation  is  simply  the  distance  from  the  wall 
to  the  point  where  the  velocity  maximum  exists.  Since  the  eddy  viscosity 
is  zero  both  at  the  wall  (where  y  =  0)  and  at  the  point  of  maximum  velo¬ 
city  (where  du/dy  =  0),  it  must  pass  through  a  maximum  somewhere  between 
these  points.  This  will  be  referred  to  as  maximum  1. 

In  a  similar  manner,  the  simple  two-layer  model  is  used  to  con¬ 
figure  the  eddy-viscosity  distribution  in  the  remnant  of  the  main-stream 
boundary  layer,  starting  in  the  free  stream  and  working  toward  the  wall. 
The  boundary  layer  thickness  employed  in  this  computation  is  the  distance 
from  the  wall  to  the  point  at  the  outer  edge  of  the  boundary  layer  where 
the  velocity  equals  99  percent  of  that  in  the  free  stream.  In  these 
calculations  the  eddy  viscosity  is  zero  at  the  outer  edge  (where 
du/dy  =  0)  and  passes  through  a  local  maximum  before  returning  to  zero 
at  a  point  (where  du/dy  =  0)  defined  as  follows: 

Case  1:  the  location  of  velocity  minimum;  and 

Case  2:  the  location  of  wall  jet  local  velocity  maximum. 

This  eddy-viscosity  maximum  will  be  referred  to  as  maximum  2. 

As  emphasized  by  Pai  and  Whitelaw,  Launder  and  Spalding  (1972) 
and  Dvorak,  strict  application  of  the  mixing-length  hypothesis  between 
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eddy-viscosity  maxima  1  and  2  creates  problems  in  that  some  gradients 
tend  to  infinity.  To  avoid  this  occurrence,  Pai  and  Whitelaw  simply  fit 
a  straight-line  "bridge"  between  maxima.  The  approach  of  Dvorak,  and  the 
one  taken  here,  is  to  fit  a  cosine  fairing  between  maxima  to  make  the  eddy- 
viscosity  profile  continuous  over  the  bridged  region. 

2.3  The  Turbulent  Transport  of  Heat 

Before  the  temperature  distribution  within  a  boundary  layer  can 
be  predicted,  it  is  necessary  to  prescribe  the  distribution  of  thermal 
conductivity,  at,  for  use  in  Equation  5.  The  most  common  and  extensively 
used  hypothesis  is  that  due  to  Reynolds  who  assumed  that  heat  and  momentum 
are  transferred  by  the  same  mechanism.  With  this  assumption  the  eddy 
coefficients  for  momentum  and  heat  transport  are  identical  and  yield  a 
turbulent  Prandtl  number  of  unity. 

For  the  purpose  of  predicting  heat  transport  in  film-cooling, 
however,  an  approach  that  has  met  with  remarkable  success  is  that  of 
Kacker,  Pai  and  Whitelaw  (1969).  These  researchers  used  experimental  data 
to  derive  an  empirical  Prandtl  number  distribution  of  the  form: 

Prt  =  1.75  -  1 . 25(y/6 )  for  0  <  y/<5  <  1  and 

Pr^  =0.5  for  y/6  >1.  (16) 

In  the  present  study,  this  Prandtl  number  distribution  is  used 
in  conjunction  with  the  eddy-viscosity  model  of  2.2  to  arrive  at  a  suit¬ 
able  eddy-conductivity  profile  for  use  in  solving  the  energy  equation. 

3.  THE  SOLUTION  PROCEDURE 

3.1  The  Finite-Difference  Grid  Network 

The  grid  network  that  is  used  to  discretize  the  flow  field 
downstream  of  the  injection  slot  is  shown  for  an  arbitrary  case  in  Figure  3. 
Cooling  air  enters  the  slot  of  width  d2  and  is  directed  a  distance  d2  in 
the  downstream  direction  before  emerging  from  the  slot  to  interact  with  the 
main  stream.  The  wall  which  separates  the  secondary  and  primary  flows  is 
of  thickness  w.  A  constant  grid  interval  of  ax  is  employed  in  the  stream- 
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wise  direction  between  x  =  d2  and  x  =  L.  In  the  y-direction,  where  the 
characteristic  scale  of  turbulence  changes  markedly  with  increasing  dis¬ 
tance  from  the  wall,  a  three-zone  grid  spacing  is  used.  In  film-cooling 
or  other  studies  involving  slot  blowing  it  seems  particularly  appropriate 
to  choose  grid  intervals  and  grid  zone  boundaries  as  follows: 


> 

<< 

It 

> 

<< 

for 

0 

VI 

>> 

VI 

d1/2. 

Ay 2  =  10  Ay' 

for 

dj/2 

VI 

>> 

Vf 

2dj  and 

Ay 3  =  100  Ay' 

for 

2di 

s  y  s 

H, 

where  Ay'  is  some  appropriately  small  distance  in  comparison  to  the  viscous 
sublayer  thickness. 

3.2  The  Finite-Difference  Equations 

Since  the  theoretical  models  used  to  describe  the  turbulent 
transfer  of  mass  and  heat  in  this  application  are  not  among  the  most 
sophisticated  available,  there  is  no  need  to  utilize  a  high  order  finite- 
difference  scheme.  In  the  present  calculations  three-point  central  dif¬ 
ferencing  in  the  y-direction  and  three-point  upstream  differencing  in 
the  x-direction  will  suffice.  With  this  order  of  differencing,  first  and 
second  partial  derivatives  of  any  variable  q  with  respect  to  y  are  approxi¬ 
mated  by: 

M  i  qm,n+l  ~  qm,n-l  and 
3y  2  Ay 

32q  ^  qm,n+l  ~  ^^m.n  +  qm,n-l 

ay2  Ay2 

at  a  given  point  (m,n)  in  the  interior  of  the  grid.  Similarly,  the  first 
partial  derivative  with  respect  to  x  of  the  same  function  at  that  point 
is  approximated  by: 

3q  ^  3qm,n  ~  ,n  *  qm-2,n 
3x  2ax 
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3.2.1  The  momentum  equation  in  finite-difference  form 


With  these  approximations  the  left  side  of  the  momentum  equation 
(Equation  2)  becomes: 


,,3u  ,  3u 
u— —  +  v — 

3y 


where  u'. 


u '  „ 

m,n 

and  v1 


3Vn  -  Vl,«  *  V2.n 

+  W1 

um,n+l  ~  um,n-l 

2ax 

T  V 

m,n 

2  Ay 

from  the  previous 


m  m  „  are  the  values  of  um  „  and  vm  „ 

m,n  m,n  m,n  m,n 

iteration.  The  use  of  these  previously-computed  quantities  is  necessary 


Firstly,  the  presence  of  u'  above  eliminates  what 

m,n 


for  two  reasons 
would  otherwise  be  a  second  order  term  in  u 


m,n 


,  thus  complicating  the 


solution  procedure.  Secondly,  current  values  of  transverse  velocity 
v„  are  not  available  for  the  solution  of  the  momentum  equation  since 
these  are  calculated  by  integrating  the  continuity  equation  once  the  dis¬ 
tribution  of  streamwise  velocity  is  known.  Hence  the  transverse  velocity 

from  the  previous  iteration  v'  is  used.  Since  the  distributions  of 

m,n 

eddy  viscosity  and  streamwise  velocity  must  be  made  consistent  through 
iteration  anyway,  the  use  of  these  previously-computed  quantities  does 
not  necessitate  any  additional  iteration.  Note  that  as  consistency  be¬ 
tween  eddy  viscosity  and  streamwise  velocity  occurs  u'  „  and  v'  will 

m,n  m,n 

approach  u  and  v  ,  respectively. 
m,n  m,n 

Applying  the  chain  rule  to  the  right  side  of  the  momentum  equation 
and  expressing  it  in  finite-difference  form  gives: 

_  d£  +  1  3 
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(v  +  vt)m,n 

Um  1  -  um  . 
m,n+l  m,n-l 

Trk  -  rk  1 

m,n+l  r  m,n-l 

^,n 

2  Ay 

2  Ay 

Equating  left  and  right  sides  and  gathering  like  terms  gives: 

Aum,n-t  +  8Vn  *  {'um,n+]  ‘  D  (,6) 

where  A  .  2w' m>nAy  -  (»  +  >m,n+,  ♦  (*  +  Vui.n-l 

k  k 

4  _  pm,n+l  '  pm,n-l  m,n+l  ~  m,n-l 


+  (v  +  v. ) 

t  m,n 


m,n 


m,n 


6u‘  Ay2 

B  = - - 8  (v  +  v. ) 

Ax  v  t  m,n 


C  =  -  2v‘  Ay  +  (v  +  v.)  , ,  -  (v  +  v.)  , 

m,n  J  t  m,n+l  v  t  m,n-l 

,k  ..k 


+  (v  +  v.)m  n 

t  m,n 


2u'm  nAy2 
m,n 


4  +  Pm,n+1  ~  pm,n-l  +  m,n+l  '  m,n-l 


m,n 


m,n 
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m-2,n  m-1 ,n 

2gcAy2 

|3Pm  *  4pm-l  *  pm-2 1 

Ax 

pm,n 

AX 

The  above  coefficients  are  valid  for  all  N  points  at  a  given 
streamwise  station  with  the  exception  of  those  two  points  at  the  inter¬ 
face  between  grid  zones  and  those  two  points  at  the  wall  and  free-stream 
boundaries. 

The  criterion  used  to  evaluate  the  coefficients  at  the  grid-zone 
boundaries  is  one  of  equal  velocity  profile  first  derivatives  (i.e.,  identi 
cal  slopes).  The  wall  boundary  condition,  namely  that  u  =  0,  is  easily 
imposed  by  setting  the  B  coefficient  to  unity  and  all  others  to  zero. 
Likewise,  the  free-stream  boundary  condition  is  fixed  by  setting  the  B 
coefficient  to  unity,  the  D  coefficient  to  ug  and  all  others  to  zero.  The 
boundary  conditions,  in  terms  of  these  coefficients,  are  summarized  in 
Table  I  below. 
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Boundary  Condition 

Coefficient 

A 

B 

C 

D 

wall  boundary 

0 

1 

0 

0 

free- stream  boundary 

0 

1 

0 

ue 

grid-zone  interface 

10 

-  11 

1 

0 

Table  I:  Coefficients  for  Use  in  Equation  16  to  Depict 
Boundary  Conditions  for  the  Momentum  Equation. 


With  the  aid  of  these  boundary  conditions  Equation  16  is  written 
for  all  points  at  a  given  streamwise  station  to  form  a  system  of  N  alge¬ 
braic  equations  in  tridiagonal ly-banded  form  (which  is  solvable  by  rapid 
means). 


3.2.2  The  continuity  equation  in  finite-difference  form 

Having  solved  the  momentum  equation  the  distribution  of  stream- 
wise  velocity  is  known.  Values  of  transverse  velocity  can  now  be  com¬ 
puted  by  integrating  the  continuity  equation.  In  finite-difference  form 
Equation  1  is  written  at  any  point  (m.n-'a)  using  three-point  differencing 
to  yield  the  transverse  velocity  at  point  (m,n): 


m,n 


(rkp) 


m,n 


where  •  1  (|r(rkpu)n,>„.,  ♦  f^pu)^  . 

The  streamwise  derivatives  are  evaluated  using  the  three-point  upstream 
differencing  formulation  presented  earlier. 


Starting  at  the  wall  where  vm  1  is  either  zero  or  specified  by  a 

boundary- layer  bleed  relationship,  the  above  equation  is  written  at  (m,l*s) 

in  order  to  compute  v  It  is  then  written  at  (m.2^)  to  give  v  ,,  and 

so  on,  until  v  is  known  for  all  1  <  n  <  N. 
m,n 
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3.2.3  The  energy  equation  in  finite-difference  form 

The  energy  equation  (Equation  3)  is  of  a  form  identical  to  that 
of  the  momentum  equation  with  the  pressure-gradient  term  omitted.  Con¬ 
sequently,  the  differential  equation  reduces  to  a  system  of  linear  alge¬ 
braic  equations  in  tridiagonally-banded  form  as  did  the  momentum  equation. 
The  coefficients  in  this  case  are: 


A  =  2v  Ay  -  (a  +  a.  )  ,  +  (a  +  a.  )  . 

m,n  J  t'm,n+l  '  t  m,n-l 


+  (a  +  a.  ) 

t  m,n 


k  k 

a  m,n+1  m,n-1  m,n+l _ m,n-l 

rk 

m,n  m,n 


6um,nAy  , 

Ax - 8(a  +  at)m,n  * 


C  =  -  2v  Ay  +  (a  +  ot.)  ,  -  (a  +  a.  )  . 

m,n  17  t'm.n+l  '  t'm.n-l 
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4  +  ^n+l  ~  pm,n-l  +  r  m,n+1^~  r  m,n-l  j  and 


m,n 
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D  =  2u  Ay2 
m,n  J 


Tm-2,n  4Tm-l,n 

Ax 


with  boundary  conditions  as  given  in  Table  II  below. 


Boundary  Condition 

Coefficient 

A 

B 

C 

D 

wall  boundary 

0 

1 

0 

Tw 

free-stream  boundary 

0 

1 

0 

Te 

grid-zone  interface 

10 

-  11 

1 

0 

Table  II:  Coefficients  for  Use  in  Equation  16  to  Depict 
Boundary  Conditions  for  the  Energy  Equation. 
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The  wall  temperature,  T  ,  may  be  specified  explicitly  or  in 
an  implicit  fashion  such  as  a  temperature-gradient  boundary  condition 
(which  is  more  difficult  to  handle).  The  latter  is  particularly  common 
when  radiative  heat  transfer  is  taking  place  between  the  wall  and  another 
body.  In  order  to  solve  the  temperature-gradient  case  without  making  the 
algebraic  equations  non-linear,  a  guess  is  made  at  the  wall  temperature 
and  the  corresponding  radiative  heat  flux  is  computed.  This  flux  fixes 
the  temperature  gradient  at  the  wall,  thereby  yielding  a  solution  to  the 
system  of  algebraic  equations  which  represent  the  differential  energy 
equation.  Once  a  solution  is  generated  the  validity  of  first  guess  becomes 
apparent  and,  if  necessary,  the  procedure  is  repeated  until  convergence  on 
wall  temperature  is  achieved. 

3.3  The  Downstream-Marching  Iterative  Solution  Procedure 

The  system  of  parabolic  differential  Equations  (1)  through  (3) 
with  the  turbulent  momentum  and  heat  transport  assumptions  of  Sections  2.2 
and  2.3  is  solved  using  a  downstream-marching,  iterative,  finite-difference 
solution  algorithm.  Three-point  upstream  differencing  with  downstream 
marching  allows  the  velocity,  temperature,  eddy-viscosity  and  eddy-con¬ 
ductivity  profiles  to  be  computed  at  successive  streamwise  locations 
using  information  from  only  the  two  neighbouring  upstream  stations.  For 
the  purpose  of  starting  the  calculations,  certain  information  (such  as 
boundary  layer  thickness,  free-stream  and  jet  velocities  and  temperatures, 
etc.)  is  supplied  by  the  user  and  utilized  with  formulations  such  as  the 
"law  of  the  wall"  and  Coles'  (1956)  "law  of  the  wake"  to  construct  upstream 
velocity  and  temperature  profiles. 

A  flow  chart  describing  the  iterative  solution  procedure  appears 
in  Figure  4.  Upon  arriving  at  a  new  streamwise  location,  the  first  step 
is  to  assume  a  temperature  profile,  T(y),  at  that  station.  This  is  readily 
done  through  extrapolation  with  the  aid  of  temperature  profiles  from  up¬ 
stream  locations.  In  conjunction  with  the  static  pressure,  p(x),  this 
temperature  distribution  is  used  to  compute  density,  dynamic-viscosity  and 
kinematic-viscosity  profiles,  p(y),  p(y)  and  v(y),  respectively.  Next, 
in  a  manner  identical  to  that  above,  assumptions  must  be  made  about  the 
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distributions  of  both  streamwise  and  transverse  components  of  velocity, 
u(y)  and  v(y),  respectively.  Once  these  profiles  are  established,  a  cor¬ 
responding  eddy-viscosity  profile,  vt(y),  is  easily  computed  using  the 
theoretical  model  presented  in  Section  2.2  along  with  the  velocity  gradient, 
3u/9y.  The  momentum  equation  can  now  be  solved  using  the  distributions  of 
transverse  velocity  and  eddy  viscosity  to  yield  a  new  streamwise  velocity 
profile,  u‘(y).  The  continuity  equation  then  dictates  a  new  transverse 
velocity  profile,  v'(y).  If  these  profiles  are  not  in  agreement  with  those 
that  were  initially  assumed,  u(y)  and  v(y)  are  replaced  by  u'(y)  and  v'(y) 
and  the  procedure  is  repeated  until  u(y),  v(y)  and  v^.(y)  become  consistent. 

Once  the  above  profiles  are  refined  through  convergence  the 
energy  equation  is  tackled.  An  eddy-conductivity  profile,  a^iy) ,  is  cal¬ 
culated  from  the  eddy-viscosity  profile  and  assumptions  about  the  tur¬ 
bulent  Prandtl  number,  as  presented  in  Section  2.3.  This  eddy-conduc¬ 
tivity  profile,  along  with  the  distributions  of  streamwise  and  transverse 
velocity  computed  above,  is  used  to  solve  the  energy  equation  for  a  new 
temperature  profile,  T'(y).  If  it  agrees  with  the  initial  assumption, 

T(y) ,  calculations  at  the  streamwise  station  in  question  are  now  complete. 

If  agreement  is  not  achieved,  then  T(y)  is  replaced  by  T'(y)  and  calcu¬ 
lations  at  this  station  are  performed  again  from  the  start,  including 
those  for  u(y),  v(y)  and  vt(y). 

A  documented  program  listing  and  description  of  variables 
appear  in  Appendix  A.  A  user's  guide  is  presented  in  Appendix  B. 

4.  RESULTS  AND  DISCUSSION 

The  applicability  of  Prandtl 's  mixing-length  hypothesis  to  wall 
jet  flows  with  heat  transfer  need  not  be  questioned  as  this  has  been  the 
subject  of  many  research  projects  in  the  past.  What  is  of  importance 
presently  is  to  ensure  that  this  hypothesis  has  been  incorporated  correctly 
into  the  computer  model. 

One  of  the  most  reliable  checks  is  to  plot  computed  velocity 
profiles  in  the  form  u/u  versus  u  y/v  in  order  to  examine  the  near-wall 

T  T 

and  law  of  the  wall  regions  of  the  boundary  layer.  Figure  5  shows  six 
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profiles  plotted  in  this  manner  for  the  case  of  zero  pressure-gradient 
flow  with  no  heat  or  mass  transfer.  Two  profiles  at  various  streamwise 
locations,  x/dj,  are  plotted  for  each  of  three  nominal  velocity  ratios, 
u2/u!.  The  solid  line  shows  the  velocity  profile  obtained  by  inte¬ 
grating  the  shear  stress  equation  over  the  region  of  constant  stress  with 
the  Prandtl  mixing-length  formula  characterizing  the  turbulent  component. 
With  these  assumptions  the  velocity  profile  is  of  the  form: 


_ 2 _ 

b  +  [b2  +  4  a(y+)]^ 


dy+ 


(17) 


where  u+  =  u/u^,  y+  =  u^y/v,  b  =  1  and  a(y+)  =  (i<y+)2  [1  -  exp  (-y+/A+)]2. 
Here  A+  is  Van  Driest1 s  damping-length  constant,  equal  to  26.  Agree¬ 
ment  between  Equation  17  and  computed  profiles  is  excellent. 

Whereas  response  to  changes  in  energy  supply  is  immediate  in 
the  inner  region,  the  outer  region  of  the  boundary  layer  has  a  structure 
which  is  wake-like  in  nature  and,  as  a  result,  the  characteristic  time 
scale  of  the  flow  is  much  larger  than  that  of  the  inner  region.  There¬ 
fore,  one  would  not  expect  this  portion  of  the  wall  jet  boundary  layer  to 
react  instantaneously  to  the  injection  process  at  the  wall  but,  over  a 
period  of  time  and  after  a  substantial  distance  downstream,  to  adjust  it¬ 
self  accordingly.  This  argument  is  readily  supported  by  examining  velocity- 
defect  profiles  of  the  type  first  illustrated  by  Clauser  (1956).  Figure  6 
shows  profiles  at  five  stations  downstream  of  an  injection  slot  in  zero 
pressure-gradient  flow  with  no  heat  or  mass  transfer.  The  velocity-defect 
profile  for  the  main-stream  boundary  layer,  depicted  by  solid  circles, 
follows  the  classic  relationship  identified  by  Clauser.  However,  a  short 
distance  downstream  of  the  point  of  injection  this  relationship  no  longer 
holds  since  the  friction  velocity  at  the  wall  has  quickly  adjusted  to  the 
new  conditions,  whereas  the  outer  region  is  still  in  a  state  of  flux. 
Eventually,  at  some  distance  downstream  of  the  slot,  information  regarding 
energy  supply  at  the  wall  propagates  throughout  the  entire  boundary  layer. 

As  this  happens  the  velocity-defect  profiles  approach  the  classic  shape 
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once  again. 

The  general  features  of  mass  and  momentum  transport,  as  calculated 
by  the  numerical  method,  appear  to  be  correct  judging  from  velocity  profiles 
in  each  of  the  inner  and  outer  layers.  In  order  to  verify  the  correctness 
of  predictions  about  mass  and  heat  transport,  adiabatic  wall  temperature 
profiles  downstream  of  an  injection  slot  are  plotted  in  Figure  7  for  a 
variety  of  main-stream  to  secondary-stream  velocity  ratios  and  main-stream 
boundary  layer  dimensional  variations.  As  before,  all  computations  relate 
to  flow  development  under  zero  pressure-gradient  conditions.  For  the  sake 
of  comparison  with  other  data  results  are  plotted  in  the  form  suggested  by 
Mukherjee  (1976).  The  solid  line  in  the  figure  is  the  mean  adiabatic  wall 
temperature  distribution  deduced  from  a  variety  of  film-cooling  data 
surveyed  by  the  above  researcher.  The  temperature  distribution  is 
expressed  in  terms  of  an  efficiency,  n,  which  is  a  function  of  non- 
dimensional  distance,  3.  That  is: 


n  =  f(8) 


where 


T,  -  T 


•  1 

w 

and 

n  = 

Ti 

-  t2 

TO 

II 

Re2J 

-0.25 

f 

X 

djm 


(18) 


with  Re?  = 


m  = 


Ml 

v2 

p?u2 

PlUl 


and 


Here  Re  is  a  Reynolds  number  based  on  mean  injection  velocity  and  slot 
width.  Subscripts  2,  i  and  w  refer  to  the  cooling  air,  the  hot  gas  and 
the  wall,  respectively. 

The  figure  shows  that  in  all  cases  the  computer  model  predicts 
higher  film-cooling  efficiencies  than  Mukherjee' s  mean  line.  Discrepancies 
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between  the  two  sources  are  smallest  for  both  large  values  of  3  and  small 
values  of  u?/uj.  These  observations  suggest  that  heat  transfer  is  not 
properly  predicted  in  regions  where  a  strong  wall  jet  exists.  To  further 
support  this  conclusion,  results  of  computations  performed  for  weak  wall 
jets  in  a  three-slot  film-cooling  configuration  are  shown  graphically  in 
Figure  8.  Note  that  diverging  isotherms  in  the  near-slot  regions  are 
discontinuous  a  few  slot  widths  downstream  of  each  point  of  injection. 

These  mark  the  locations  at  which  the  local  wall  jet  velocity  maxima  dis¬ 
appear  and  consequently  at  which  the  wall  jet  boundary  layer  is  assumed  to 
have  degenerated  into  a  conventional  wall  boundary  layer.  The  corresponding 
changes  in  the  eddy-viscosity  profile  apparently  increase  the  rate  of  mixing 
as  evidenced  by  more  rapidly  diverging  isotherms  after  the  switchover 
to  a  different  mixing  model. 

Another  factor  that  is  partly  responsible  for  underestimating 
mixing  and  therefore  overestimating  cooling  protection  is  the  omission 
of  an  eddy-viscosity  term  to  account  for  vorticity  due  to  a  finite  slot 
lip  thickness.  Pai  and  Whitelaw  have  shown  that  in  the  near-slot  region 
the  influence  of  slot  lip  thickness  is  significant.  In  fact,  according 
to  their  data,  for  an  increase  in  lip  thickness  w/dj  from  0.13  to  0.38 
(for  a  density  ratio  p2/pi  of  unity),  a  decrease  in  cooling  efficiency  of 
some  five  percent  was  observed  at  a  distance  of  ten  slot  widths  downstream 
of  the  point  of  injection. 

5 .  CONCLUSIONS  AND  RECOMMENDATIONS 

It  would  appear  that  both  the  inner  and  outer  regions  of  the 
boundary  layer  are  properly  modelled  since  the  near-wall,  law  of  the  wall 
and  outer  wake-like  layers  behave  as  they  should  in  incompressible,  zero 
pressure-gradient  flow  with  no  heat  or  mass  transfer.  In  cases  with  heat 
transfer  the  film-cooling  efficiencies  predicted  by  the  model  are  higher 
in  the  near-slot  region  than  those  quoted  by  Mukherjee  by  an  amount 
ranging  from  two  percent  for  u2/ui  =  0.2  to  approximately  ten  percent  for 
u2/uj  =  1.0.  These  differences  appear  to  be  the  result  of: 
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i)  underestimating  turbulent  mixing  phenomena  in  that 

part  of  the  mixing  model  used  to  evaluate  eddy-viscosity 
when  a  local  wall  jet  velocity  maximum  exists,  and 

ii)  not  accounting  for  increased  mixing  due  to  vorticity 
caused  by  a  finite  slot  lip  thickness. 

It  is  recommended  that  future  work  attempt  to  verify  the  pre¬ 
dictive  capability  of  the  model  in  flows  with  pressure  gradients  and  that 
modifications  be  made  to  the  mixing  model  in  the  near-slot  region  to  im¬ 
prove  agreement  between  model  calculations  and  heat-transfer  correlations. 
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Figure  1:  The  Coordinate  System  for  Boundary-Layer  Calculations. 
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Figure  2:  Wall  Jet  Boundary-Layer  Velocity  Profiles  and  Corresponding  Eddy-Viscosity  Profiles 
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Figure  3:  The  Finite-Difference  Grid  Network 
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GO  ON  TO  THE  NEXT  STREAMWISE 
STATION 


Figure  4:  The  Iterative  Solution  Procedure  Used  at  Each  Streamwlse  Station 


Figure  5:  Velocity  Profiles  in  the  Near-Wall  and  Law  of  the  Wall  Regions. 


Figure  6:  Velocity  -  Defect  Profiles  for  the  Developing  Wall  Jet  Boundary  Layer. 
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Figure  7:  Adiabatic  Wall  Temperature  Distributions. 


Figure  8:  Velocity  Profiles  and  Isotherms  for  a  Three-Slot  Film-Cooling  Facility. 
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Description  of  Program  FILM 

A  detailed  description  of  program  FILM  is  presented  in  this  appendix. 
Details  are  summarized  under  the  following  general  headings; 
i)  Description  of  Key  Programming  Modules,  and 
ii)  Description  of  Key  Variables. 

A  documented  program  listing  appears  in  Figure  A-l. 


Description  of  Key  Programming  Modules 


Name 

Type 

Purpose 

BUNT 

sub 

to  integrate  the  boundary-layer  velocity  profile  for  the 
displacement  thickness,  momentum  deficit  thickness  and 
velocity  profile  shape  factor. 

FILM 

main 

to  syncronize  the  calling  of  major  subroutines  needed  to 
initialize  the  boundary  conditions,  to  compute  the  flow 
field  and  to  store  the  computational  results. 

FLINK 

sub 

to  read  the  outflow  boundary  conditions  (from  a  disk  file) 
from  the  last  run  to  be  executed  and  to  construct  the  in¬ 
flow  boundary  conditions  for  the  present  run,  thereby 
linking  the  two  flow  fields. 

FLMN1 

sub 

to  read  in  general  information  about  the  coordinate  system, 
grid  network,  ambient  conditions,  fluid  dynamics  and  other 
phenomena  that  a-e  characteristic  of  the  run. 

FLMN2 

sub 

to  read  in  information  about  and  to  set  up  the  streamwise 
boundary  conditions  including  duct  radius,  duct  wall  slope, 
bleed  velocity  at  the  wall,  free-stream  temperature,  static 
pressure  and  free-stream  velocity. 

FLMN3 

sub 

to  read  in  information  about  and  to  set  up  the  inflow  bound¬ 
ary  conditions  including  transverse  grid  step  size  and 
position,  temperature,  density  and  streamwise  velocity. 

FLMTD 

sub 

to  calculate  the  distributions  of  eddy  thermal  conductivity 
and  temperature  throughout  the  boundary  layer  at  a  particular 
streamwise  station. 

A-2 


Name 

FLMVU 

FMRCH 

FTIDY 

GNINT 

MEW 

0TPT1 

OTPT2 

QADD 

THCON 

TRIDI 

WLAW 


Type  Purpose 

sub  to  calculate  the  distributions  of  eddy  viscosity,  stream- 
wise  velocity  and  transverse  velocity  throughout  the 
boundary  layer  at  a  particular  streamwise  station. 

sub  to  coordinate  the  downstream-marching  procedure  by  calling 
subroutines  to  solve  the  differential  equations  for  the 
conservation  of  mass,  momentum  and  energy.  FMRCH  monitors 
convergence  parameters  and  steps  the  solution  from  one 
streamwise  station  to  the  next. 

sub  to  store  the  outflow  boundary  conditions  from  a  given  run 
in  a  disk  file  for  future  reference. 

func  to  fit  a  third-order  polynomial  to  four  data  points  and 
to  return  the  value  of  the  function  for  some  specified 
point  within  the  range  over  which  the  polynomial  fit  was 
evaluated. 

func  to  evaluate  the  dynamic  viscosity  of  air  as  a  function  of 
temperature  by  interpolating  in  a  table  of  temperatures 
and  corresponding  viscosities. 

sub  to  print  out  on  the  line  printer  the  streamwise  distribution 
of  some  quantity  which  is  stored  in  the  form  of  an  array. 

sub  to  print  out  on  the  line  printer  the  transverse  distribution 
of  some  quantity  which  is  stored  in  the  form  of  an  array. 

sub  to  allow  the  user  to  include  any  additional  heat  transfer 
terms  in  the  heat  balance  at  the  duct  wall. 

func  to  evaluate  the  thermal  conductivity  of  air  as  a  function 
of  temperature  by  interpolating  in  a  table  of  temperatures 
and  corresponding  thermal  conductivities. 

sub  to  solve  a  tridiagonally-banded  system  of  linear  algebraic 
equations. 

sub  to  solve  for  u  in  the  law  of  the  wall  expression,  given 
distance  from  the  wall,  y,  and  corresponding  streanwise 
velocity,  u.  A  Newton-Raphson  root-finding  technique  is 
employed. 
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Description  of  Key 

Variables 

Fortran 

Variable 

Name 

Conven¬ 

tional 

Symbol 

Description 

A 

\,n 

is  an  array  which  contains  the  A  coefficients  in  the  system 
of  algebraic  equations  used  to  solve  the  differential 
equations . 

AA 

A+ 

is  Van  Driest's  damping-length  parameter  (equal  to  26). 

ALM 

am,n 

is  an  array  which  contains  the  transverse  distribution  of 
thermal  conductivity  at  streamwise  station  m. 

ALPHA 

a(x) 

is  an  array  which  contains  the  streamwise  distribution  of 
duct  wall  slope  measured  from  the  duct  centre  line  (required 
for  axisymmetric  flow  only). 

ALPHU 

is  the  slope  of  the  duct  wall,  measured  from  the  duct  centre 
line,  one  station  upstream  of  the  point  of  injection 
(required  for  axisymmetric  flow  only). 

AP 

is  a  working  array. 

AQ 

is  a  working  array. 

ATRB 

°t 

m,n 

is  an  array  which  contains  the  transverse  distribution  of 
eddy  thermal  conductivity  at  streamwise  station  m. 

AU 

is  a  working  array. 

B 

Bm,n 

is  an  array  which  contains  the  B  coefficients  in  the  system 
of  algebraic  equations  used  to  solve  the  differential 
equations. 

C 

Cm,n 

is  an  array  which  contains  the  C  coefficients  in  the  system 
of  algebraic  equations  used  to  solve  the  differential 
equations. 

CF 

cf 

is  the  skin  friction  coefficient. 

COORD 

is  a  flag  that  specifies  the  coordinate  system.  COORD 
positive  implies  flow  over  a  body  of  revolution.  Otherwise, 
plane  flow  is  assumed. 

D 

Bm,n 

is  an  array  which  contains  the  D  coefficients  in  the  system 
of  algebraic  equations  used  to  solve  the  differential 
equations. 
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Variable 

Name 

Conven¬ 

tional 

Symbol 

Description 

DDWIN 

is  the  sum  of  DWIN  and  Dl . 

DISP 

6* 

is  the  displacement  thickness  of  the  boundary  layer. 

DPDX 

dx 

is  the  streamwise  gradient  of  static  pressure. 

DTDX 

dl 

dx 

is  the  streamwise  linear  gradient  of  temperature. 

DUDYi 

du 

dy 

is  the  transverse  gradient  of  strearrwise  velocity  for  any 
character  i.  The  gradient  at  the  wall  is  denoted  by  i  =W. 

A  maximum  gradient  is  denoted  by  i  =  M. 

DUEDX 

du 

dx 

is  the  streamwise  linear  gradient  of  free-stream  velocity. 

DVDX 

dv 

dx 

is  the  streamwise  linear  gradient  of  transverse  velocity. 

DW 

is  the  duct  wall  thickness. 

DWALL 

is  the  additive  constant  in  the  law  of  the  wall  expression 
used  to  create  the  inflow  velocity  profiles.  It  has  a 
value  of  5.24  in  this  study. 

DWIN 

w 

is  the  slot  lip  thickness. 

DX 

AX 

is  the  grid  step  size  in  the  x-direction. 

DY 

Ay 

Jn 

is  an  array  which  contains  the  transverse  distribution  of 
grid  step  size  in  the  y-direction  at  all  streamwise  stations. 

DYY 

Ayi 

is  the  grid  step  size  in  the  y-direction  of  the  finest 
grid  zone. 

D1 

di 

is  the  injection  slot  width. 

D2 

d 2 

is  the  length  of  the  injection  slot. 

DELT1 

«l 

is  the  thickness  of  the  main-stream  boundary  layer  (just 
upstream  of  the  point  of  injection)  or  the  wall  jet 
boundary  layer. 

DELT2 

A  2 

is  the  thickness  of  the  slot  boundary  layer  or  the  distance 
from  the  wall  to  the  point  of  wall  jet  maximum  velocity. 
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Variable 

Name 

Conven¬ 

tional 

Symbol 

Description 

FNRMT 

is  the  fractional  displacement  norm  of  the  temperature 
profile.  It  is  used  to  monitor  convergence  of  the  profile. 

FNRMU 

is  the  fractional  displacement  norm  of  the  velocity  pro¬ 
file.  It  is  used  to  monitor  convergence  of  the  profile. 

GC 

9C 

is  a  constant  (equal  to  32.2  lbm-ft/lbf-sec2) . 

H 

H 

is  the  velocity  profile  shape  factor. 

IFi 

is  a  disk  file  number  for  1  ^10. 

IRECT 

is  a  record  pointer  for  the  disk  file  retaining  transverse 
temperature  profiles. 

IRECU 

is  a  record  pointer  for  the  disk  file  retaining  transverse 
profiles  of  streairwise  velocity. 

JDAT 

is  a  flag  used  in  setting  up  the  inflow  streamwise  velocity 
profile. 

JHEAT 

is  a  flag  that  specifies  whether  or  not  heat  transfer  is 
to  be  included.  JHEAT = 0  implies  that  the  energy  equation 
will  not  be  solved  and  that  the  temperature  distribution 
specified  as  inflow  boundary  conditions  will  exist  through¬ 
out  the  flow  field.  Otherwise,  the  energy  equation  will  be 
solved. 

JOUT 

is  the  transverse  station  number  corresponding  to  the  loca¬ 
tion  of  YOUT. 

JPAR 

is  a  flag  used  in  setting  up  the  streamwise  distributions 
of  static  pressure  and  free-stream  velocity. 

JPRES 

is  a  flag  used  in  setting  up  the  streamwise  distribution 
of  static  pressure. 

JPRN 

is  a  flag  that  indicates  whether  or  not  results  of  the  com¬ 
putations  will  be  printed  out.  JPRN = 0  implies  no  line- 
printer  output.  Otherwise,  output  will  result. 

JRADL 

is  a  flag  used  in  setting  up  the  streamwise  distributions 
of  duct  radius  and  duct  wall  slope. 
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Variable  tional 

Name  Symbol  Description 


JSEP 

is  a  flag  used  in  setting  up  the  streamwise  distributions 
of  static  pressure  and  free-stream  velocity. 

JSLOT 

is  the  slot  number  which  identifies  the  flow  field  being 
computed  presently. 

JSTOT 

is  the  total  number  of  slots  in  the  structure  being  analyzed 

JSTRT 

is  a  flag  that  indicates  where  data  regarding  the  main 
stream  is  to  be  acquired.  JSTRT = 0  implies  that  such  data 
will  be  supplied  by  the  user  as  input.  Otherwise,  the 
outflow  boundary  conditions  from  the  last  run  to  be  executed 
will  be  fetched  from  disk  files  and  used  as  input  conditions 
for  the  present  run. 

JT 

is  a  flag  used  in  setting  up  the  inflow  temperature  profile. 

JTOP 

is  the  transverse  station  n  mber  corresponding  to  the  loca¬ 
tion  of  YTOP. 

JU 

is  a  flag  used  in  setting  up  the  streamwise  distribution  of 
free-stream  velocity. 

JV 

is  a  flag  used  in  setting  up  the  inflow  transverse  velocity 
profile. 

JVEL 

is  a  flag  used  in  setting  up  the  inflow  streamwise  and  trans¬ 
verse  velocity  profiles. 

JDEL1 

is  the  transverse  station  number  corresponding  to  the  thick¬ 
ness  DELT1. 

JDEL2 

is  the  transverse  station  number  corresponding  to  the  thick¬ 
ness  DELT2. 

KDGEN 

is  a  flag  indicating  whether  or  not  the  wall  jet  boundary 
layer  has  degenerated  to  a  conventional  turbulent  wall 
boundary  layer. 

KOUNT 

m 

is  the  streanwise  station  number. 

M 

M 

is  the  number  of  stations  in  the  streamwise  direction  at 
which  computations  are  performed. 

MEWAL 

% 

is  the  fluid  dynamic  viscosity  at  the  wall. 
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Variable 

Name 

Conven¬ 

tional 

Symbol 

Description 

MOM 

0 

is  the  momentum  deficit  thickness  of  the  boundary  layer. 

N 

N 

is  the  number  of  stations  in  the  transverse  direction  at 
which  computations  are  performed. 

NC 

is  a  four-element  array  that  usually  contains  station 
numbers  corresponding  to  the  wall,  any  grid-grid  interface 
and  the  edge  of  the  boundary  layer. 

NDIM 

is  the  number  of  real  elements  in  a  file  record  (1000  in 
this  program). 

NEW 

V 

is  the  local  fluid  kinematic  viscosity. 

NOLD 

is  N  for  the  last  run  to  be  executed. 

N1 

N2 

NCI 

NC2 

PATM  Pa 

Q 


PI  7T 

PMAIN 

PPLUS  p+ 

PR  Pm 

m 

P(x) 


is  the  transverse  station  number  that  corresponds  to  dis¬ 
tance  dj  from  the  wall. 

is  the  transverse  station  number  that  corresponds  to  dis¬ 
tance  (dj  +  w)  from  the  wall. 

is  the  transverse  station  number  at  the  interface  between 
fine  (grid  zone  1)  and  medium  (grid  zone  2)  grids. 

is  the  transverse  station  number  at  the  interface  between 
medium  (grid  zone  2)  and  coarse  (grid  zone  3)  grids. 

is  the  ambient  pressure  outside  the  duct.  This  pressure 
may  be  required  for  computing  heat  transfer  from  the  duct 
to  the  surroundings  in  subroutine  QADD. 

is  a  constant  (equal  to  3.1415926). 

is  the  static  pressure  in  the  duct  one  station  upstream  of 
the  point  of  injection. 

is  the  dimensionless  pressure-gradient  parameter  for  use 
in  modifying  Van  Driest's  near-wall  mixing-length  expression. 


PRES 


is  the  static  pressure  at  streamwise  station  m. 

is  an  array  which  contains  the  streamwise  distribution  of 
static  pressure. 


Fortran 

Variable 

Name 

PRLAM 

PRTi 

PRTRB 

PSLOT 

PARM1 

PARM2 

PART2 


PART3 


PART4 

PART5 

PART6 


7359 
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Conven¬ 

tional 

Symbol  Description 

Pr  is  the  fluid  molecular  Prandtl  number. 

is  a  term  used  in  modifying  the  near-wall  mixing-length 
expression,  i  ranges  from  1  to  3. 

Prt  is  the  fluid  turbulent  Prandtl  number. 

is  the  static  pressure  in  the  injection  slot  one  station 
upstream  of  the  point  of  injection. 

n j  is  Coles'  profile  parameter  for  the  main-stream  boundary 

layer  (just  upstream  of  the  point  of  injection). 

n2  is  Coles'  profile  parameter  for  the  slot  boundary  layers. 

is  an  array  which  contains  the  transverse  distribution  of 
the  quantity  k  ^ 

rm,n+l  "  rm,n-l  . 
k 

r  n 
m,n 

is  an  array  which  contains  the  transverse  distribution  of 
the  quantity 

pm,n+l  ~  pm,n-l  . 
pm,n 

is  an  array  which  contains  the  transverse  distribution  of 
the  quantity 

2Ay„  „ 

•/m,n  . 

AX 

is  an  array  which  contains  the  transverse  distribution  of 
the  quantity 

2Aym,n  ^um-2,n  ~ 4um-l ,n^  . 

AX 

is  an  array  which  contains  the  transverse  distribution  of 
the  quantity 

Wn  (3P.-4Vl  +  Pm-2>  . 

AX 


A-9 


Fortran  Conven- 


Variable 
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Symbol 

Description 

PART7 

is  an  array  which  contains  the  transverse  distribution  of 
the  quantity 

2Ay„  „  (Tm  ,  -  4T  ,  n) 

m,n  m-Z ,n  m-1 ,n  . 

AX 

PM1 

pm-1 

is  the  static  pressure  at  streamwise  station  m-1. 

PM2 

pm-2 

is  the  static  pressure  at  streamwise  station  m-2. 

QWALL 

% 

m 

is  the  net  heat  transfer  from  the  duct  wall  at  a  given 
streamwise  station. 

RAD 

Rm 

is  the  duct  radius  at  streamwise  station  m  (used  for  axi- 
symmetric  flow  only). 

RADUP 

is  the  duct  radius  one  station  upstream  of  the  point  of 
injection  (required  for  axi symmetric  flow  only). 

RDIUS 

R(x) 

is  an  array  which  contains  the  streamwise  distr.bution  of 
duct  radius  (required  for  axi symmetric  flow  only). 

RGAS 

R 

is  the  gas  constant  for  use  in  the  equation  of  state  for 
both  streams. 

RLOC 

rm,n 

is  an  array  which  contains  the  transverse  distribution  of 
local  radius  at  streamwise  station  m  (required  for  axi sym¬ 
metric  flow  only). 

RO 

pm,n 

is  an  array  which  contains  the  transverse  distribution  of 
density  at  streamwise  station  m. 

ROEE 

pe 

is  the  density  at  the  edge  of  the  boundary  layer. 

ROEUE 

peue 

is  the  product  of  density  and  streamwise  velocity  at  the 
edge  of  the  boundary  layer. 

ROWAL 

pw 

is  the  fluid  density  at  the  wall. 

RADI 

Rm-1 

is  the  duct  radius  at  streamwise  station  m-1  (required  for 
axisymmetric  flow  only). 

RAD2 

Rm  o 
m  -c 

is  the  duct  radius  at  streamwise  station  m-2  (required  for 
axisymmetric  flow  only). 

RL0C1 

rm-l  ,n 

is  an  array  which  contains  the  transverse  distribution  of 
local  radius  at  streamwise  station  m-1  (required  for  axi¬ 
symmetric  flow  only). 
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Variable 

Name 

Conven¬ 

tional 

Symbol 

Description 

RL0C2 

rm-2,n 

is  an  array  which  contains  the  transverse  distribution  of 
local  radius  at  streamwise  station  m-2  (required  for  axi- 
symmetric  flow  only). 

R01 

pm-l ,n 

is  an  array  which  contains  the  transverse  distribution  of 
density  at  streamwise  station  m-1. 

R02 

pm-2,n 

is  an  array  which  contains  the  transverse  distribution  of 
density  at  streanwise  station  m-2. 

SCRAP 

is  a  working  array. 

TATM 

Ta 

is  the  ambient  temperature  outside  the  duct.  This  tempera¬ 
ture  may  be  required  for  computing  heat  transfer  from  the 
duct  to  the  surroundings  in  subroutine  QADD. 

TFREE 

Te 

m 

is  the  temperature  in  the  core  of  the  main  stream  at 
station  m. 

TINF 

yxi 

is  an  array  which  contains  the  streamwise  distribution  of 
free-stream  temperature. 

TM 

^m,n 

is  an  array  which  contains  the  transverse  distribution  of 
temperature  at  streamwise  station  m. 

TMLAS 

T;,n 

is  an  array  which  contains  the  transverse  distribution  of 
temperature  at  streamwise  station  m  from  the  last  iteration 
in  the  solution  of  the  energy  equation. 

TMOLD 

Ti.n 

is  an  array  which  contains  the  transverse  distribution  of 
temperature  at  streamwise  station  m  from  the  last  iteration. 
The  iteration  in  question  is  one  necessitated  when  heat 
transfer  from  the  wall  is  a  function  of  the  unknown  wall 
temperature. 

TNLIM 

is  the  value  that  the  temperature-profile  fractional  dis¬ 
placement  norm  must  assume  before  convergence  is  sufficient. 

TWMAX 

TW 

max 

is  the  maximum  temperature  that  the  wall  can  assume.  If  at 
any  time  during  the  run  the  wall  temperature  should  exceed 
this  value  the  job  is  automatically  terminated  in  a  con- 

trolled  manner. 

TINF1 


TINF2 


is  the  uniform  temperature  of  the  main  stream, 
is  the  uniform  temperature  of  the  injected  stream. 


Fortran 

Variable 

Name 

Conven¬ 

tional 

Symbol 

Description 

TM1 

^m-1 ,n 

is  an  array  which  contains  the  transverse  distribution  of 
temperature  at  streamwise  station  m-1. 

TM2 

\i-2,n 

is  an  array  which  contains  the  transverse  distribution  of 
temperature  at  streamwise  station  m-2. 

UEE 

ue 

is  the  streamwise  velocity  at  the  edge  of  the  boundary  layer 

UFREE 

ue 

m 

is  the  streamwise  velocity  in  the  core  of  the  main  stream 
at  station  m. 

UINF 

ue(x) 

is  an  array  which  contains  the  streamwise  distribution  of 
free-stream  velocity. 

UM 

um,n 

is  an  array  which  contains  the  transverse  distribution  of 
streamwise  velocity  at  streamwise  station  m. 

UMLAS 

um,n 

is  an  array  which  contains  the  transverse  distribution  of 
streamwise  velocity  at  streamwise  station  m  from  the  last 
iteration  in  the  solution  of  the  momentum  equation. 

UNLIM 

is  the  value  that  the  velocity-profile  fractional  displace¬ 
ment  norm  must  assume  before  convergence  is  sufficient. 

UTAU 

u 

T 

is  the  friction  or  shear  velocity. 

UDEL1 

Ul 

is  the  streamwise  velocity  at  the  edge  of  the  main-stream 
boundary  layer. 

UDEL2 

u2 

is  the  wall  jet  maximum  streamwise  velocity  or  the  stream- 
wise  velocity  at  the  edge  of  the  slot  boundary  layer. 

UM1 

um-l  ,n 

is  an  array  which  contains  the  transverse  distribution  of 
streamwise  velocity  at  streamwise  station  m-1. 

UM2 

um-2,n 

is  an  array  which  contains  the  transverse  distribution  of 
streamwise  velocity  at  streamwise  station  m-2. 

VM 

vm,n 

is  an  array  which  contains  the  transverse  distribution  of 
transverse  velocity  at  streamwise  station  m. 

VSC 

vm,n 

is  an  array  which  contains  the  transverse  distribution  of 
kinematic  viscosity  at  streamwise  station  m. 

VTMJ 

vt 

max! 

is  the  eddy-viscosity  maximum  in  the  jet  region  of  the 
wall  jet  boundary  layer. 

VTMJ 
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Conven¬ 

tional 

Symbol 

Description 

VTMM 

vt 

max  2 

is  the  eddy-viscosity  maximum  in  the  outer  region  of  the 
wall  jet  boundary  layer. 

VTRB 

vt 

m,n 

is  an  array  which  contains  the  transverse  distributions  of 
eddy  viscosity  at  streamwise  station  m. 

VWAL 

Vwm 

n 

is  the  bleed  velocity  at  the  wall  at  streamwise  station  m. 

VWALL 

»„(x) 

is  an  array  which  contains  the  streamwise  distribution  of 
bleed  velocity  at  the  wall. 

VWPLS 

v+ 

w 

is  the  dimensionless  mass-transfer  parameter  for  use  in 
modifying  Van  Driest's  near-wall  mixing-length  expression. 

VM1 

vm-l ,n 

is  an  array  which  contains  the  transverse  distribution  of 
transverse  velocity  at  streamwise  station  m-1 . 

VM2 

vm-2,n 

is  an  array  which  contains  the  transverse  distribution  of 
transverse  velocity  at  streanwise  station  m-2. 

X 

X 

is  the  streamwise  coordinate. 

XH 

H 

is  the  height  of  the  grid  network,  measured  from  the  duct 
wall . 

XK 

K 

is  von  Karman's  mixing-length  constant  (equal  to  0.435). 

XL 

L 

is  the  distance  from  the  entrance  of  the  injection  slot 
to  the  downstream  end  of  the  grid  network. 

XLAMB 

X 

is  a  proportionality  constant,  equal  to  0.09,  relating  the 
mixing  length  and  boundary-layer  thickness. 

XMASS 

m2 

is  the  mass  of  fluid  exiting  the  injection  slot. 

XOLD 

is  an  array  which  contains  the  transverse  distribution  of 
some  quantity  at  the  outflow  boundary  of  the  last  flow 
field  to  be  computed. 

Y 

yn 

is  an  array  which  contains  the  transverse  distribution  of 
distance  from  the  wall  at  all  streanwise  stations. 

YMIX 

l 

is  the  mixing  length. 

is  an  array  which  contains  the  transverse  distribution  of 
distance  from  the  wall  at  the  outflow  boundary  of  the  last 
flow  field  to  be  computed. 


bfiHiiaiataiuMMiiiaMM 


YOLD 
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YOUT 


Conven¬ 

tional 

Symbol  Description 

—  is  the  point  at  which  the  inner  and  outer  portions  of  the 

K  boundary  layer  intersect. 


YTOP 


is  the  transverse  location  of  local  maximum  eddy  viscosity 
VTMM. 
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//FU.N  JOi  (0162.  101<9|  1  .*£021 ,  'MURRAY  <  ,NO»lFYilS57a21. 

//  msGlEvCLKI.  U. CLASSIC.  T !*£■<  1.0 1 
//•MAIM  LlNea«20,OHG«AM02B 

//  IKC  FORTxCLG.PARM.FQflT4'AUTOOBLCDSL4),ALC.OPYtMlZE(*1» 
Z/SVSTERN  00  SYSQuTiA 
Z/FORT.SVS1N  00  • 


c 

c 

c 

c 

c 

c 


THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  CALCULATE  THE  DEVELOPMENT  OF 
INCOMPRESSIBLE  TURBULENT  »ALL  JET  BOUNDARY  LAYERS  IN  MULTIPLY* 
SLOTTED  FlLM-COOLlNG  APPLICATIONS.  THIS  IS  ACCOMPLISHED  BY  SOLVING 
THE  DIFFERENTIAL  EQUATIONS  FOR  THE  CONSERVATION  OF  MASS*  MOMENTUM 
AND  ENERGY  USING  A  DO M NS THE  AM— MARCH 1 NG >  IMPLICIT.  ITERATIVE. 
F1NITE*0IFF£RENCE  METHOD.  ThC  TURBULENT  TRANSPORT  OF  MOMENTUM 
ANO  HEAT  IS  MODELLED  BY  Th£  BOuSSINESQ  DIFFJSIVlTV  CONCEPT  AND 
PRANOTL  MliiNG-LENGTH  hypothesis. 

THE  MAIN-LINE  ROUTINE  FUNCTIONS  SImPly  TO  CALL  MAJOR  SUBROUTINES 
MHICH  ARC  VITAL  TO  The  SOLUTION  PROCEDURE. 


INTEGER  COORO 

DIMENSION  R0IU3 ( ISO 1, ALPHA ( t SO ). UINF | 1501. T INF( ISO ).PRES( ISO). 

1  SCRAPI1S0). vnALLT ISO  ) » 

2  uh (1000). uni (1 000 ).u"2<  1000). VM(  1000). VM| (  1000). VM2(  1000) . 

S  TM(|  000).  TH1  ( 1000  >.  THSdOOO).  HOI  1000  ).ROId  000).  ROSdOQO). 

«  V ( UQO). OV< 1000). NC(«)*TNLAS<1000).UMLAS(t 000). VSC< 1000). 

S  VTRBI 1000). RLOCI  1000 1 .RL0C1 I 1000 )• BLOCS 1 1000). SOLO (1000). 

A  PARTS  C 1000). PART )OO0O),PART4d 000) .PANTS!  1000). PARTS! I  000). 

7  A ( 1000). B(l OOOI.C ( 1000). D< 1000 )« AP( | 000). A«( 1000 ).AU( 1000). 

a  RART7I1000). AL"l 1000). ATRBI 1000). TMOLDt 1000). YOLD( 1000) 
EQUIVALENCE  (XOLOI 1 ) » ALM( 1 ) ) » ( VOLD( l).ATRB(l)). ( VSC ( 1 ). SCRAP! I ) ) 
COMMON  IN, 101. IF l.IFS,IFJ.|F«.lF5.1FA,IF?.IFS.IFf.lF10.1RCCU,lRCCT 
DEFINE  FILE  I t (SO.BOOO.L.IRECU) 

DEFINE  FILE  IS(SO.SOQQ.L.IRECT) 

DEFINE  FILE  1 S< » .8000. L. IB) 

DEFINE  FILE  1 «<  1 . SOOO. L . IB ) 

DEFINE  FILE  |5( 1 . SOOO.L. 18) 

DEFINE  FILE  16(1.8000,1,18) 

DEFINE  FILE  I I ( 1 .8000. L. IB) 

DEFINE  FILE  ISO  .OOOO.L.  IS) 

DEFINE  FILE  1«(1 . SOOO.L. 18 ) 

DEFINE  FILE  SO OOO. t.L .  IB) 


1/0  OE  V  ICE  NUMBERS.  FUE  NUMBERS  ANO  RECORO  POINTERS  ARE 
INITIALIZED  BtLUM. 

INIS 

I0T44 

IRECUH 

ircchi 

NO I Ml 1000 

lFUil 

IFSHS 

IF  Jill 

IF  Hi  A 

IFSHS 

IF  61 16 

IF  7»  l  7 

IFSHS 

IF6HR 

IFlOiSO 


SUBROUTINE  FLMNI  IS  CALLED  TO  RE  AO  IN  GENERAL  INFORMATION  ABUUT 
THE  GRID  Nt T MORN.  AMBIENT  CONDITIONS  AND  VARIOUS  PHENOMENA  THAT 
ARC  PECULIAR  TU  A  PARTICULAR  RUN. 

CALL  FLMNI  (JPHN.JSTRT. JHEAT.TNMAX.M, 01. DS.Ol.OYY.IL. KH, PATH, 

I  TATM.iK.AA.ONALL.HGAS.GC.Dk.OHlN.COORO) 


SUBROUTINE  F  L  hnS  IS  CALLEO  TO  RE  AO  IN  INFORMATION  ABOUT  ANO  To 
SET  UP  THE  NALL  AND  FREE*8TRE AM  BOUNDARY  CONDITIONS. 

CALL  FlmhS  (JPRN. COORO, m, OS. 01. ALPHU.RAOUP.ROIUS. ALPHA, UINF, 

1  T INF. VMALL. PRES. SCRAP, GC.R6AS.PSL0T.PHAIN) 


SUBROUTINE  FLNNJ  is  CALLEO  TO  REAO  IN  INFORHATION  ABOUT  AND  To 
SET  UP  THE  InFLOi  BOUNOAHY  CONDITIONS. 

CALL  FLMNS  (OI.OYY.OnIN.OmALL.iR.RGAS.N.IH.AA.Y.DY.JSTRT.JPRN, 

I  COORO. RAOI. H AOS. PSLOT.PMA IN. UM.UHl.UMS.VM.VMl, VMS. TM.TMI.TMS. 

S  RO.ROI.RQS.HDIUS. ALPHA, PRES. Nt, NS. N, NCI, NCS.NC.ND IN. IOLD. YOLO. 
3  RLOC.RLOC1.RLOCS.RAOUP, ALPMU) 


C  SUBROUTINE  FMRCH  IS  CALLEO  TO  CARRY  OUT  THE  OONNSTRE AH*MARCHInG 
C  SOLUTION  PROCEOUME. 

c 

CALL  FMRCH  CUM.UMl.UHi.VM.VMI.VNS.RO.ROl.ROS.TN.TNl.TMJ.T.OY. JPRN. 

1  M, 01. OS.Ol. U. IH. RATH, T ATM, IK, AA.RGAS.GC.DM.OMIN. COORD. RADI .RADS. 

2  ALRHA.ROIUS.UInF.TINF.VMALL.PRES.RSLOT.PNAIN.NI.NS.N.NCI.NCS, 

S  UMLAS.TMLAS. YSC.VTBB.RLOC. RLOCI. RLOCS, PARTS. PARTI, PART A, PARTS. 

•  PARTS. A.B.C.O, AP. AQ, AU.PART7.ALM, AJRB.TNOLO. JME AT, TNNAX.NDIN) 

C 

C 

C  SUBROUTINE  FTIOV  IS  CALLED  TO  STORE  THE  OUTFLON  BOUNDARY  CONO- 
C  1 T IONS  AFTER  (Hi  FLO*  FIELO  HAS  BEEN  COMPUTCO. 

C 

CALL  FTIDy  (uh.umI ,Th, (hi, vh, vmi.y.nOIn.n) 


STOP 

END 


C< 

c< 

c< 

c 

C 


SUBROUTINE  FLNNi  < JPRN, JSTRT.JHEAT, TmMAI.M.Di, OS.Ol, OVY.IL.XH, 
I  PATN.TATN.AK. AA.DmALL.RGAB.GC.Om.OmIN, COORO) 


THE  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  REAO  IN  GENERAL  INFORHATION 
ABOUT  THE  COORDINATE  SYSTEM,  GRIO  NETWORK,  AMBIENT  CONDITIONS, 
FLUID  DYNAMIC  ANO  VARIOUS  OTHER  PHENOMENA  THAT  ARE  TYPICAL  OF  A 
PARTICULAR  RUN. 


INTEGER  COONO 

CONMON  iN.IOT.If 1,IFS,IF),IF«,1F*.IF6.IF7,IFS,IF«.IF|0,1RECU,!RCCT 


SOHE  PARAMETERS  ARE  ASSIGNEO  values. 


GCaSS.S 
IKlQ .4)5 
AAlSS.O 
0NALL*5.24 


ANO  GONE  PARAMETERS  ARE  REAO  IN  OELON. 

RE A0( IN, 1 0) JPRN.CUORD, JSTRT , JSLOT . JSTOT , JHCAT 
10  FORNAT (1012) 

REA0(IN.20>O1.DS.DX.Oyv,Il.ih.O«,OmIN 
SO  FORNAT (OF  10.6) 

RE AD( IN,S5)PAIM, T ATM, RGAS, Thmai 
S5  FORMATtBF IS. 6) 

HH.0001HUL*DS)/OI«1 .0) 


THIS  INFORMATION  IS  PRINTED  OUT  BCLOm.  IF  THIS  OPTION  HAS  OCEN 
SPECIFIED  OY  THE  USER. 

IF (JPRN))Q»S!0.S0 
)0  MR1TE (I0T.4Q) 

40  F0RMAT14SI, 'FILM  COOLING  INITIALIZATION  SUNMARV'///5K. 

I  1 1 )  GENERAL  1NF0RNATI0N  •) 

MRlTEdOT.  SO)  JSLOT,  JSTOT 

50  FORHAK/lOX,  '  *CONF  IGURAT  IQNt  SLOT  NUNOER'.IS.'  OF  A', I), 

I  •  SLOT  FACILITT') 

IF (COORO) 60 ,60, BO 
60  MRlTEdOT, 70) 

70  FORHAT(/|OX.' -COORDINATE  SVSTENI  PLANE1) 

GO  TO  100 
•  0  MRlTEdOT. 40) 

40  FORMAT(/|OX, ••COORDINATE  BVBTCMi  AXlSYMMCTRJC ) 

100  MRlTEdOT, 110) 

t 10  FORMAT (//5X,  *2)  GRID  GEOMETRY  INFORMATION  •) 

MRlTEdOT,  1 20)01, 02, 02, XL, XH. OX 
ISO  FORMAT (/10X. **SLOT  HEIGHT t  '.F6.S,'  1NCH£S«//I0I, 

1  '-SLOT  ENTRY  LENGTH  •.  F6.2.'  INCHES' Z/10X* 

2  * *L0N6l TUOlNAL  CALCULATION  INTERVAL!  FROM  X  H.F6.2, 

S  *  INCHES  TO  X  •' .F6.2, '  INCHES' //I OX, ' iTRANS VERSE  CALCULATION  '. 

4  'INTERVAL!  FROM  V  i  0.00  INCHES  TO  V  ••  ,F6.S. •  INCHES' // 10X. 

5  '-LONGITUDINAL  STEP  SIZE!  ' » F  T.5. '  INCHES') 

IF (COORO) 130,130,150 

>iO  MRlTEdOT, )40)DYY 

140  FORNAT (Zl OX, '-F I ME ST  TRANSVERSE  STEP  SIZE)  FS.6, '  INCHES') 

GO  TO  170 

150  MRITEd07,160)DYV 

160  FORMAT (Z10X, '-F I NEST  RAOi *L  STEP  SIZE!  FS,*.'  INCHES') 

170  MRlTEdOT, 1007DM1N. Dm 

100  FORHATtZlOX. '-INNER  mall  THICKNESS!  F6.4.«  INCHES »ZZ I  OX. 

I  '-OUTER  MALL  THICKNESS!  ',F6.4,«  INCHES') 

MRlTEdOT,  140)PATN,TATH 

140  F0RMAT(//5I,'))  ATMOSPHERIC  INFORMATION  ' ZZIOI. '• ANSI ENT  '. 

1  'PRESSURE!  ' »FS , 4, '  PSIA'ZZlOX,  '-AMBIENT  TEMPERATURE ! 

2  FS.),'  "R') 

HRITEdOT.SOO)  XK»  OMALL,  AA.RGAS 
200  F ORMAT ( ZZ  51, *4)  FLUID  DYNAMIC  INFORMATION  'ZZIOI, 

|  '-VON  HARMAN' ' S  LAM  OF  THE  NALL  CONSTANT!  '.F6.4//10I. 

2  '-ADOITIVE  CONSTANT  In  LAh  OF  THE  HALL!  '.F4.3ZZ10X. 

)  '-VAN  DRIES?  "S  DAMPING  PARAMETER#  ',F6.2//)0X, 

4  '-FLUID  GAS  CONSTANT!  '.F7.3,'  FT-LBF ZLBM-R • ) 


UNITS  OF  SOME  PARAMETERS  ARE  ALTERED  SELOH  FOR  CONSISTENCY. 

Sio  DIIOX/IS. 

DYYMOVYZIS. 

DH0IZ1S, 

OSmDSZIS. 

XHaXHZIS. 

ILHL/12. 

DHmDn/12. 

ON INiOm I NZ IS. 

PATMiPATM* 144 . 


RETURN 

ENO 


. . . . .  flnns 

. . . . . . FLMNS 


c 


SUBROUTINE  FLMNS  ( JPRN, COORO, N, OS.Ol » ALPHU.RAOUR.RO I UB, ALPHA. UINF . 
i  T INF, VMALL, PREB. SCRAP, GC.RCAB. PBLOT, PMAIN) 


THE  PURPOSE  OF  THIS  SUBROUTINE  It  TO  REAO  IN  INFORMATION  ABOUT 
ANO  TO  BET  UR  THE  BTREAMhIBE  BOUNOART  CONOITIONB.  INCLUDING 

1)  DUCT  RADIUS. 

2)  OUCT  MALL  SLOPE,  \ 


Figure  A-l :  A  Documented  Listing  for  Program  Film  (Page  1) 


. '  '  -  ‘IliiVifltti 
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11  BLCEO  VELOCITY  AT  !Mfc  NALL. 

A)  MU-I1K4K  TEMPERA  TUBE  >  AND 

1)  STATIC  PRESSURE  AND  f  RLE -STREAM  VCLOC  J  T  Y  . 

INTEGER  COORD 

OJMNS10N  R01USld.ALPHMd.VMALtm.UINF  <l).PR£Sd),TlNF(d. 

1  scrap (ii 

CONNON  lN.IUt.IF I. !F2. IF  1, If*. IF*. (F*. If  7. IFB.IF9.1# 10, IRCCUdRECI 
*00 1 ( X2 1 •  JGN r { I . •B>Cs(Xl*x2i*C**2*(xi*«2*2.ax|*x2*X2<*2)) 

F  P( X2)a-R00 I T  -  (  d*(C**2*(Xl*X2)«B*C l/ROOt  T 


IF  JRAOL  IS  ZERO  T nisi  DISTRIBUTIONS  AME  HEAD  |N  DIRECTLY.  IF 
J*»AOt  IS  M0»2k>H)  Jn£  «ALL  IS  ASSUMED  TO  BE  COnTOU»EO  ACCORDING  TO 
INI  EDUA T 1  ON  HaA.  ttM  *C*X*«2,  THEREFORE.  COEFFICIENTS  A.  8 
AND  C  ARC  MEAD  IN  AND  THE  01 STH1SUT I 0N8  OF  OUCT  RAOIuS  ANO  "ALL 
SLOPE  ARE  COmPUTEO.  FOR  TM£  PURPOSES  OF  Tm£  ABOVE  EQUATION  X  ANO 
R  ARE  NEASU«tO  ALONG  ANO  NORMAL  TO  THE  OUCT  CENTRE  LINE  *IIM 
l  a  0  CORRESPONDING  TO  THE  INJECTION  SLOT  ENTRANCE. 

IF (JRAQL >20. 100.20 


20  R£aO( IN. | |0) A.ti.C 
N02«1.000I*(02/OX) 
mlunGsnanoJ 
SIRS. 

VlaA 

DO  90  **2,ML0NU 

12«X|*Di/SuRt ( I .•B*a2*a.*tfaC«X!*«.o<C*XI >**2)»l2. 

00  AO  JR1.20 
ROOT TaROOf 1*2) 

F  12*12.  •0X-R00»T*lx2-Xd 
IF (AOSIF 12/01/ 12. ) >0.0001 >00.40. IS 
10  x2*X2-FX2/»P(l2) 

AO  CONTINUE 

NMI)E(IOI.SO) 

SO  FORMAT (///10X> ••••  FATAL  ERROR  IN  SUBROUTINE  FL*N2.  CONVERGENCE 
ICAnnOT  BE  ACHIEVED  In  the  CALCULATION  OF  RDIUS  AnO  alpha. '/15X. 

2  'JOB  ABORTED. ') 

STOP 

•0  X I  si 2 

IF (R-N02190, 70.60 
/O  R*0UP«fl<x2> 

ALPhu»AT  AN(d*2.*C**2) 

GO  TO  *0 
BO  JLUCa*~N02 

■0IuS(JLUC)*Fl(X2J 

ALPHA (JL0C)aA(AN(B«2.aL*X2) 

*o  continue 
60  TO  120 


TH(  STATIC  PRESSURES  IN  EACH  OF  THE  HAIN  ANO  INJECTED  STREAMS, 

ONE  STATION  UPSTREAM  OF  THE  POINT  OF  INJECTION,  ARC  READ  IN  BELOa. 


IF  J8EP  IS  ZERO  THESE  DISTRIBUTIONS  ARE  «EAO  In  DIRECTLY.  IF  JSCP 
IS  N0N2CR0  THtN  ONE  DISTRIBUTION  IS  ESTABLISHED  FRON  VARIOUS  IN. 
PUTS  AND  THE  OTHER  IS  CONFUTED  USING  BERNOULLI'S  ESUATION  FOR  In. 
VISCID  FLO*  In  THE  FREE  STREAM.  VARIOUS  CASES  ARE  PRESENTED  BELOa. 


100  READTIN.IIO IRADuP. (MOluS(Jl.Jsl.N) 

119  P  ORM  A  f  l  ttf  '  0  ,  a  7 

RE  AO ( In. I IOIALPmu. (AlPha( J) , J«1,N) 

120  CONTINUE 


IF  Jv  IS  ZERO  THE  DISTRIBUTION  IS  Rt AO  In  DIRECTLY.  IF  JV  IS  NON- 
ZENO  The  BLEED  VELOCITY  a?  The  POINT  or  INJECTION  ANO  THE  LINEAR 
GRADIENT  QF  blEEO  VELOCITY  ARE  READ  In.  THESE  QUANTITIES  ARE  USED 
TO  COMPUTE  Th|  REQUIRED  01 S TR IBU1 ION. 

IF (JV ) 1 10. 150.110 


110  REAOUN,  llOlVaALLd  J.OVOX 
DO  ISO  Jsi.Ni 

1*0  vaALL(J*l)av*ALL( I > *D VD * *0 * • J *  1 2 . 
GO  TO  1*0 


IF (JSEP)2*0,*10.2*0 


250  REAOUN,  !B)JPAR 

IF  JPAR  IS  ZENO  THE  F KE£. STREAM  VELOCITY  AT  THE  POINT  OF  INJECTION 
AND  tut  DlSlHldUIIOX  or  STATIC  rHlSHjKf  ARC  USCO  TO  CALCULATE  ThE 
DISTRIBUTION  OF  FREE*»TREan  VELOCITY.  IF  JPAR  IS  NONZERO  THE  STAT¬ 
IC  PRESSURE  AT  THE  POINT  OF  INJECTION  ANO  THE  DISTRIBUTION  OF 
FREt-SIREAN  VELOCITY  ARE  USCO  TO  CALCULATE  THE  OIBTMZRUTION  of 
STATIC  PRESSURE. 

JF (JPAR) ISO, 2*0/ 159 
JSCP  NONZERO.  JPAR  ZERO 


IF  JPRES  IS  ZERO  THE  ST RE ANalSE  DISTRIBUTION  OF  STATIC  PRESSURE 
IS  REAO  In  OIRECTLY.  IF  JPRES  IS  NONZERO  The  STATIC  PRCSSURt  AT 
THE  POINT  OF  INJECTION  AND  ThE  LINEAR  STATIC  PRESSURE  GRA01ENT  ARE 
REAO  IN.  THE  DISTRIBUTION  OF  STATIC  PRESSURE  IS  COMPUTED  FROM  Tm|S 
INFORMATION. 

If (JPRES1270, 290.270 

JSEP  NONZERO,  JPAR  ZERO.  JPRES  NONZERO 

2T0  ME A0( 1N.2*S)PRE S( I ) »OPOx 
00  2S0  Jal.Ml 

2B0  PRES  ( J* d  *PRES(  I  )»DPDx*Dx*JM2. 

GO  TO  100 

JSEP  NONZERO.  JPAR  ZERO.  JPRES  ZERO 


THE  DISTRIBUTION  OF  FMtC-STRCAM  VELOCITY  18  CUNPUTIO  BElO«. 
DO  1*0  JL«2.N 

AH6a(PRES(l)*(l.«uINF  (d**2/2. /6C/RGAS/T  INF  (d) -PRES  (JL  I) 
l »2. AGCaRGAS*  f INF ( JL l/PRESI JL ) 

IF  (ARG)}|0,1I«,U0 
SIO  aRITM  10T  « 12B) 

120  F ORNA T(///IOx. FATAL  ERROR  IN  SUBROUTINE  FLHN2.'/ISX. 

1  'UNREALISTIC  FMEE-StMtAM  CONOI T IONS. •/ |S* .' JOB  ABOMTEO.') 
STOP 

119  UlNF ( JL I >06* T<4R6) 

1*0  CONTINUE 
GU  IU  *20 

JSEP  NONZERO.  JPAR  NONZEHU 


IF  Ju  IS  ZERO  THE  STMEAHalSk  DISTRIBUTION  OF  fREE-STREAN  VELOCITY 
IS  READ  IN  OIMECTLY.  IF  JO  IS  NONZERO  TMt  FREt-STREAN  VELOCITY  AT 
THE  POINT  OF  INJECTION  ANO  THE  LINEAR  GRAOUMT  Of  fHEE-ST«lA* 
VELOCITY  AME  HEAD  In.  THE  DISTRIBUTION  OF  FreE-STREAM  VELOCITY  IS 
CONPUTEO  FROM  THIS  INFORMATION. 

IF  <JU)1*0, ISO, 1*0 

JSEP  NONZEMU.  JP AM  NONZERO.  JU  NONZERO 

3*0  KLADUN.dOlUlNFdl.DuCOX 
00  170  J* 1 , M 1 

570  UlNF  ( J*  I  )  *UInF  (d»0UE0X*0K*J*T2. 

GO  TO  190 

JSEP  NONZERO.  JPAR  NONZERO.  JU  ZfcRO 


IF  JT  IS  ZERO  THE  DISTRIBUTION  IS  REAO  IN  DIRECTLY.  IF  JT  IS  NON- 
ZENO  The  FRCE-STREAN  TCNPE MATURE  at  THE  POINT  OF  INJECTION  ANO 
The  LINEAR  GRADIENT  Of  TEMPERATURE  ARE  REAO  In.  THESE  QUANTITIES 
ARC  uSEO  70  COMPUTE  THf  RCOUlREO  DISTRIBUTION. 

l>lJn2IS,2S0.2tO 


THE  DISTRIBUTION  Of  STATIC  PRESSURE  IS  COMPUTED  BELOn. 
00  *00  JL*2.N 

•  00  PKt$(JL>*PRESO)Ad.«UlNFd  )**2/2./6C/R6A3/T|NF  (Id/ 

I  d.tUINF (JL>**2/2./6C/RG*S/TlNF(JL>> 

GO  TO  *20 


210  RE *0 (IN, dl  ITINf  (|  l.OTOX 
Id  FORM*!  (  TF  ||  •*) 

00  220  Jal.Ml 

220  TINF  ( J*d*TlNFd  >»OTOX*OX*J*12. 
60  to  2*0 


*10  REAOUN,  dOHulNf  (J).jai.M) 
REAO(lN.IIO) (PRES (J),J*l,M) 
*20  CONTINUE 


THE  BTRCAHnJSE  OJSIRIBUUONS  ESTABLISHED  AMOVE  ANE  PRINTED  OUT 
BELOa,  IF  THIS  OPTION  HAS  BEEN  SPECIFUO  BY  THE  USER. 


Figure  A-1:  A  Documented  Listing  for  Program  Film  (Page  2). 
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If (JPRn)*)o.5aO.*)0 

4)0  *RIIt(IQT.440) 

4»«  fornauz/sx.  •  s »  siacAH.jst  ac^NOAKT  conditions  ‘//jo*. 

J  DISTRIBUTION  Of  f  RCE-STRE AN  VELOCITY! ‘//t II, *1  I  INCHES )  '  .  A II . 

2  1  VCLQC 1 1  r  U  (Oast*) 

CALL  OTRTl  (OZ.Ol.N.UlNf ) 
a*lVC(IQT.«»0) 

450  FQRNAT(/10l, '-STRE AH.ist  DISTRIBUTION  Of  STATIC  PRESSURE!'// 

1  11*. ■*  (IMCNiS) *.)«!, ‘STATIC  PRESSURE  a  C*5IA>*) 

CALL  0TPT1  (02,Di.*.PRt S) 

•limiOt.lM) 

4*0  FOSNAK/lOl. ‘-STHf AHalSE  OISTRISUT ION  Pf  f»tr-S14lA*  TEMPERATURE t 1 
)  //III.  (InChES)  '.411.'  TENPIRATuAE  T  <"«)•) 

CALL  0TPT1  (02.0*  •  •*.  t  INf  I 
•■ITKIOT.4IO) 

4) 0  f  0«"AT  1/ 1 01.  '-STKt  AHaJSC  OI*T«ISu?ION  Of  tLCIO  VELOCITY  AT  THE  aAL 

ILi'z/Ili.1*  (IMCMCSI'.IS*. ‘V(L0CIT«  V  (fast  * ) 

CALL  OTP?  I  (OZ.Oi.H. vaALL) 

IF(CQOnO>440.49S.SIO 

440  aftlTf  HOT, tOOJ 

500  FORBAft/IOl, ‘-STRC AHa|$(  DISTRIBUTION  Of  CHANNEL  HALF  a|DTH|*// 

I  II*. ‘I  :  seal  I )  '  .  )4*  .  '  C  hamnEl  HALf  alOTH  S  (INCHES)') 

CO  TC  510 

MO  *R1TC(!0T.520) 

520  f OR"AT(/lO». •-ST4E *"■)»(  DISTRIBUTION  Of  CHANNEL  RADIUS!'// 

1  III.  'A  (INCHES) Sil.  ‘Channel.  RADIUS  A  (INCHES)1) 

5) 0  call  oratt  (DJ.Oi.n.ROIuS) 

aaiUIIOT.S«OI 

540  f 0»«AT ( / 10* , ' -STM ».«l St  DISTRIBUTION  Of  HALL  SLOPE!*// 

I  III.'!  (INCHES)'. )4*.'aALl  SLOPE  M  (DECRIES)’) 

RAOiCalSO./), 1415424 
00  550  JBI.M 

550  $CH*a(j)aHADlC*ALaHA(j) 

CALL  OTan  (02. Oi,h, SCRAP) 


C  UNITS  Of  SOHE  PAN ahE  TENS  are  altered  BE  L  On  f  OR  COnSISTEnCT. 

c 

540  00  570  Jai.H 

RDIuS(J)*ROIuS(J)/ 12. 

570  PRES(J)aPRES(J>ai44. 

RAOURaRAOua/12. 

a8L0TaaSL0T*|44. 

PnaJNnRna 1 n • | u i . 


RETURN 

ENO 


SUBROUTINE  fLNN)  (OI.OTT.OnIn.OnALL.XK.RCAS.n.IM.AA.T.DV.JSTRT, 

1  0aHN,CO0«0.RA0l,RAO2,PSLUt,PHAlH,yH.UH|,UN2.¥H,VN|. VH2.TH.TNI. 

2  TH2.R0.R01.RO2.R01U3. ALPHA. PRES, N1.N2.N. NCI. NC2.NC.N01N.10LD, 

)  VOLO. RLOC , RLOC I , NL0C2.NA0UP. ALPNU) 


TNI  PURPOSE  UF  THIS  SUBROUTINE  IS  TO  READ  in  INFORHATION  ABOUT 
ANO  TO  SET  UP  The  InFlOn  BOUNDARY  CONDITIONS.  INCLUOINC 

1)  CRIO  SUP  SUE, 

2)  TRANSVERSE  POSITION, 

))  TRANSVERSE  VELOCITY. 

4)  TEMPERATURE. 

5)  DENSITY.  ANO 

4)  STMEAhhISE  VELOCITY. 


REAL  NEa.NEn.MON 
INTECER  COOHO 

01  HE  NS  I  ON  U"(  I  )  •  UH  |  |  I  ).UH2(  I  ),VN(|),  VH1  (I  ).  VN2m.TM(l).TN|(|  ), 

1  TN2 ( I ) .ROC l ) »*0I ( I ).R02 ( I ) . PRES C I ) . AlPha (i).HOIUS(|).V<|),OY(I). 

2  NC ( I) . AOlO 111. YOLOCII.RLOCCI), "LUC  1(1). RL0C2 ( 1 ) 

CQNHON  iN.IOT.If I. IF 2, If ).lF4,|F5.If4.I» 7 , If S. 1F9, IF  1 0. IRCCU. 1RCCT 


111*1 ./IN 
PIU.  1415924 


Th|  OISTRIBUTIONS  OF  CHID  STEP  SUE  AND  TRANSVERSE  POSITION  ARE 
CUNPUtfO  BCLOa. 

DYIOSOVV* 10. 

0 YIOPaOYY* l 00 . 

OOalRaDl aD»In 
NCIal.0001*(01/2./OYT*l.O) 

NC  1 1  PNC  1 4  | 

Nl a  1,0001* (NCI *01/2. /OYIOJ 
N1|bN|»| 

N2*l ,00014(N1*DHIN/0»IO> 

N2I bn2* | 

NC2» 1.0001  *  INC  1*1 .5«0l/0 YIO) 

NC21BNC2*! 

Naj . 000 !• (NC2* ( IN"2. *01 1/07 100) 

N0IFsn2*ni 
00  10  Jai.NCl 
OV(J>«OYY 
10  Y(J)I(J-1)40YY 
INCIaV(NCI) 

DO  20  JaNCI I.NC2 
OY(J)BDY10 

20  r(j)iiNct*(j*Ncn*OYio 
INC2*Y(NC2) 

00  >0  JBNC21.N 
0V(J)e0Y10O 

SO  Y(j)aiNC2*(J*NC2JaDv|00 


C 

C 

c 


c 

c 

c 


THE  TRANSVERSE  DISTRIBUTIONS  OF  LOCAL  RADIUS.  BOTH  AT  THE  POINT 
OF  INJECTION  AND  ONE  STATION  uPBTME AH  0*  INJECTION,  ARE  ESTABLISH¬ 
ED  SlLOa.  |F  COOHO  IS  POSITIVE  ThE  FlOm  IB  AIIBVHHCTRIC.  OTHER- 
*1BE  the  FLO*  IS  plane  anO  all  Rapu  are  SET  TO  UNITY. 

IF (COORO)sO.aO.aO 
COORO  NOT  POSITIVE 

40  RAOlai.O 
RA02«1 .0 
00  50  J*1.n 
RlOC I (J)ai.O 
50  RL0C2 ( J  >■ 1 .0 
CO  TO  BO 

COORD  POSITIVE 

40  RAOiaflOlUSM  ) 

RAD2»RAPUP 

CSAL 1 *COS( ALPHA ( 1 ) ) 

CSAL2*C08 ( ALPHU) 

OO  70  Jal.N 

RLOC  I ( J) aRADl-CSAL I • Y ( J ) 

70  RLOC 2 ( J)bRA02-CBAL2*V ( J) 


IF  JSTRI  IS  NON2ERO.  CRJO  1 Nf ORNAT ION  FRON  TPr  LAST  RUN  TO  BE 
EXECUTED  IS  READ  IN  AND  STORED  FOR  FUTURE  REFERENCE.  THIS  IS  NEC¬ 
ESSARY  BECAUSE  The  OuTFlO*  BOUNOARY  CONDITION  FRO"  THE  LAST  RUN 
TO  BE  EXECUTED  »ILL  BECOnE  ThE  INFLOa  BOUNOARY  CONDITION  FOR  ThE 
PRESENT  RUN. 

SO  If (JSTRTI90.1I0, 90 
JSTRT  NONZERO 

90  RE  AD  I  If  1 0  ‘  I  )N(ILD 

REAOUF  «•  l)(YULD(J).Ja|.NOLD) 

00  100  Jlt.NbLD 
100  yOlO(J)byOlU(J)«DDh1n 

JSTRT  ZERO 


THE  TRANSVERSE  DISTRIBUTIONS  Of  TRANSVERSE  VELOCITY.  BOTH  AT  ThE 
POINT  OF  INJECTION  AND  ONE  STATION  UPSTWEAN  Of  INJECTION.  ARE 
ESTABLISHED  BELOa.  If  JSTRI  IS  ZERO  THE  ENTIRE  VELOCITY  PROFILE 
IS  SPECIFIED  BY  INPUT  UaTA.  IF  JSTRT  IS  NONZERO  ThE  NAIn-STREAh 
VELOCITY  PROFILE  alLL  BE  RE  AO  FRON  A  DISK  FILE  (UuTFLOb  BOUNDARY 
C0N01TI0N  FROH  The  LAST  Run)  AND  ONLY  THE  VELOCITY  PROFILE  FOR 
THE  INJECTED  STREAN  -ILL  BE  SPECIFIED  BY  INPUT  OATA.  THE  HANNCR 
In  BNlCh  THIS  INPUT  OATA  IB  uSEO  TO  SET  UP  ThE  PROFILE  IS  SPECI¬ 
FIED  BY  J VEl .  IF  JVEL  IS  ZERO  THE  PROFILE  IS  READ  IR  DIRECTLY.  IF 
JVEL  IS  NONZERO  THE  TRANSVERSE  VELOCITY  IS  ASSURED  TO  BE  ZERO  anO 
The  PROFILE  IS  CONSTRuCTEO  TO  THAT  EFFECT. 

110  00  310  JLOOP4I.2 
HE AO ( In. I20)JvEL 
.20  F ORNAT (1012) 

IF  (JSTRT)t)0.2IO. 1)0 

JSTRT  NONZERO 

1) 0  CO  TO  (140,  1 50  > » JLQOP 
140  RFILE4IF5 

CO  TO  1*0 
ISO  NFILEalF* 

140  CALL  F L IN*  (Y. YOLO. vh.xoLD.N, HOLD. N2.NF RE) 

IF  (JVEL) >90,170,140 

JSTRT  NONZERO.  JVEL  ZERO 

170  REAP(lN,iSO)(VH(J).Jaj,Nl) 

IBO  FORHAT(BFIO.S) 

CO  TO  250 

JSTRT  NONZERO,  JVEL  NONZERO 

190  00  200  JBI.N1 
200  VH(J)a0. 

CO  TO  250 

JSTRT  ZERO 

210  IF(JVEL)2)0,220,2J0 
JSTRT  ZERO,  J vEL  ZERO 

220  RIA0(IN,1B0)(VN(J), JbI.NJ 
CO  TO  250 

JSTRT  ZERO,  JVEL  NONZERO 

2) 0  00  240  Jal.N 
240  VN(J)aO. 

THE  TRANSVERSE  COHPONENT  OF  VELOCITY  ACROSS  THE  SLOT  LIP  "ALL  IS 
SET  TO  ZERO.  REBAROLCSS  OF  THE  OSER  SPECIFIED  PROFILE. 

250  00  2B0  JaNl,N2 
240  VH(J)aO. 

THE  VELOCITY  PROFILES  CONPuTEO  ABOVE  ARE  BTORCO  IN  INOIVlOUAL 
ARRAYS. 

CO  TO  (270.290 ) , JLOOP 
270  00  2B0  Jal.N 
200  VHKJ)bvn(J) 

CO  TO  JIO 
290  00  )00  Jal.N 
100  vn2 ( J  >■ VN( J I 
)I0  CONTINUE 


Figure  A-l:  A  Documented  Listing  for  Program  Film  (Page  3) 
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.  too  «I  !«  total  OP 
lliil  'l?  HH °?  “'»'«**  OP  OJiCIIOa.  in  [limitno 

PUDt.'oOTtl.O  'if »"••«««  WIU  11  tPICl. 

*,Ll  *£  *e*ft  7*0m  *  DIM  MU  (OuTFlom  BQumOAR y 

L*?T  *U‘,)  0HLr  THt  PROFILE  FOR 

lN  «i ICh  I-?«  !SSuT  ftiri  ?£  5”CIFICD  *»  INPUT  DATA.  THE  MAHMF. R 
fHlS  I*RuT  DATA  15  USED  TO  SC  T  UR  Tm£  PROFILE  IS  SPECI- 
FUO  ST  JT.  If  JT  IS  ZERO  Thc  RROFILC  IS  RCAO  IN  PIRCCTLT  IF  JT 
UNIFORM  TEMPERATURE  OF  ?M£  SIRCAN(S)  j|  jjfJp  j* 

AMO  THE  RROFILC  II  CONSTRUCTED  TO  THAT  EFFECT. 

DO  *20  JLOOP- l ,2 

SIAPIlNtUOJT 

IF  (JSTRT  )*;<,.  1*0. 120 


120  60  TO  <110. 1«0). JLOOP 
ISO  NF lLtalF  T 
60  TO  150 
140  MflLCsIFS 

S50  CALL  FLlNK  { Y, YOLO* TM, SOLO* N, NOLO* M2* Mf ILC) 
IF(J?)170,140.170 
JSTRT  NONZERO.  JT  ZERO 


JSTRI  NONZERO.  JT  ZERO 

)T0  RCAOUM.I«0)TINF2 
DO  JBO  J*j.nj 
ISO  TMIJJ.T1NF2 
60  TO  <a«Q 


ISO  IF(JT)410.«00.«I0 
JSTRT  ZERO.  JT  ZERO 


C  JSTRT  ZERO.  JT  NONZERO 

C 

4io  R£40UN,nojriNF2,nNf i 
00  420  Jai.MI 
420  TN(J)4TINFZ 
00  4J0  J4N2.N 
410  TN<J)4TINP1 

c 

r  J**£  1S  VARICO  LINEARLY  ACROSS  THE  SLOT  LIR  NALL.  RE- 

C  GARDLESS  OF  THE  USER  SRECIFIEO  TEMPERATURE  PROFILE. 

440  IF (NDIF. 2)470. 4*0. 450 
450  JFRAC-0 

OIF  F ATM INJ ) • Tm (hi) 

DO  4 60  JUN'.  . 

JFRAC4JFR*V 

4«0  TM(J)4TM(N1 ,*JFRAC«DIFF/N01F 
470  CONTINUE 
C 

C  ARRATS**^***  TuRE  PROFILES  COMRuTCO  ABOVE  ARC  STORED  IN  INDIVIDUAL 
C 

60  TO  <«B0. 500). JLOOP 
480  *R1»EUF2*IRECT)<TN(J),J4i,m>IN) 

00  440  JR | . N 

4*0  tnhj«*;«(j) 

60  TO  520 
500  00  510  J4|,n 
510  T“2(J)4T»( J) 

520  CONTINUE 

T*<E  TRANSVERSE  DISTRIBUTIONS  OF  STATIC  OCNSITV,  80TN  AT  THE  POINT 
OF  INJECTION  AND  ONE  STATION  UPSTREAM  OF  INJECTION,  ARE  ESTABLISH" 
EO  BElUk. 

DO  580  J4| ,n 

ROl I J) ARNES  1 1 ) FRGAS/TNI ( J) 

IF  (J-Nl)SlO. 510.540 
510  RRaRSLOT 
60  TO  570 

540  IF CJ-N2J550.560.580 
550  RR4(RSL0T*PmaIn)/2. 

60  TO  570 
540  RRaPma I N 

570  R02 ( J )4PR/R6AS/TH2 ( J ) 

580  CONTINUE 

Th|  transverse  distributions  OF  STREAMmISC  VCLOCITT.  BOTH  AT  THE 
point  of  injection  and  one  station  upstream  of  injection,  are 
ESTABLISH'D  BCLO*.  IF  JSTRT  IS  ZERO  THE  ENTIRE  VELOCITY  PROFILE 
18  !!£C,F,t0  *T  1^uT  OATA.  |F  JSTRT  IS  NONZERO  THE  MAIN-STREAM 
!iL??!TT  *ROf,U  81  Rf*D  FROM  A  DISK  FILE  (OUTFLOM  BOUNDARY 

CONDITION  FROM  THE  LAST  RUN)  AND  ONLY  THE  VELOCITY  PROFILE  FOR  THE 
INJECTED  STREAM  mILL  BE  SPECIFIED  BY  INPUT  DATA.  THE  MANNER  IN 
MM I CM  THIS  INPUT  DATA  is  USED  TO  SET  UP  THE  PROFILE  IS  SPECIFIED 
BY  JvEL  •  IF  JVCL  IS  ZERO  THE  PROFILE  IS  RE AO  IN  DIRECTLY.  IF  JVEL 
IS  NONZERO  VARIOUS  PARAMETERS  ARE  RCAO  IN  ANO  USED  NlTM  THE  LAm  OF 
THE  MALL  ANO  LAm  OF  THE  MAKE  TO  CONSTRUCT  A  REALISTIC  VELOCITY 
PROF ILC . 


TEMPERATURE  PROFILES  ASSOCIATED  mITM  THE  STREAM. 
RISC  STATION  BEING  PROCESSED  ARE  FETCmEO  BELOm. 


60  10(5*0. 418). JLOOP 
5*0  DO  400  J4|.n 
ROCJ)MROl(J) 

400  TM| J)4?M| | j ) 

GO  TO  410 
410  DO  420  JMt.N 
RO( J)mR02 ( J ) 

420  TM(J)mTM2(j> 

410  CONTINUE 


FIRST  THE  PROFILE  FOR  THt  1NJECTEO  STREAM  IS  DEALT  MlTH. 
READdN,  I20)JV£l 


IF (JVEL 1440. 720,440 


j  ij'.srLS'Sia.i:  ’,o,ut 

440  RE AO ( IN, ISO )UOEL2, 0ELT2, PARN2 
0CLT240CLT2/12. 

J0EL2il.000I4(PELT2/0VY«|.0) 

JDL24J0EL2*! 

If (NC1-J0L2)4S0,470.470 
450  MftJTE(10T,*40) 

* ***  iH  Subroutine  flnnj.*  /»*«. 

,gT*P€C,F,t0  V4Lu£  OF  DCLT2  IS  TOO  LARGE  .  1  /  1 5*  .  *  JOB  ABORTED.1) 

C 

r  0F  ,Mt  “*LL  ("IfH  DRIEST  *8  MODIFICATION)  AND  THE  LAM 

c  souIoing  Hall!6  U,t°  T°  C0NiT*UCT  TK£  »‘-«T  ROundart  layer  on  the 
C 

470  NEM4NEH(TN( 1 ) )/«0  1 1 ) 

CMALL4DEL72/NEN 

0malmDralL*2.nParm2*ih) 

CALL^MLAM  ( UDEL2, SKI , CNALL. DMAL, U7 AU) 

UPLSlMO. 

YPLSHO. 

DO  4S0  KV4..JDEL2 
YPLS2muTAU*Y(KV)/NEh 
YPAVEm( VPLS1 • YPLS2J/2. 

OvRLSm YPLS2-VPLSI 

SOT  4 1 .ABORT (1.44.4  XK-  KK  *YPAvE4VPAVE*(l. — C  KP (  —  VPA VE / AA )  )  .  •  P  ' 
UPL824UPLS t  *2./00T *0 YPLS  tm.vi/ra) )**2 

RSIiSIS#,MPLM#B . *-‘.(SIH(PU2..,cnv,fDELT,),.42, 

VPLS1MVPLS2 
480  CONTINUE 

UF  AC  T4UDCL2SUN ( J0CL2) 

00  4*0  J041.J0EL2 
4*0  UM(JQ)mun( JO) *UF ACT 

THE  LAN  OF  THE  NALL  (NITHOUT  VAN  ORlEST'S  MODIFICATION)  and  THE 
THE  SLOT  LIP  HALL.  VAN  ORlEST'S  MODIFICATION  18  NOT  REQUIRFO 
FREE  SHEAR  LAYER* m  8T*UCTuRC  IS  IHNEOIATELY  DESTROYED  IN  THE 

JDL  IO» J. 0001 *(OELT2/OY 10*1.0) 

KOELJmnJ  J- jol 1 0 
KDL24K0EL2-I 
CmALmuTAU/nEm 
DO  TOO  KVVl2, JDL 1 0 
KVMNII-KVV 

VV4(KW-|)«0TI0 

UN(KY)4UTAUF(IK1sAL06(ChAL*YY)«DmAlL«2.*PARN2*kk|* 

I  (SlN(PI/2.»YY/0ELT2) )**2) 

TOO  CONTINUE 


DO  710  J4J0L2.KDL2 
710  UM(J)muOCL2 
GO  TO  TOO 


720  READdN,  ISO)  (UN(J).jbi. m|) 

C 

C  F?IEOC8CLOMtLOCITT  K0T  i0u‘'04"r  L4T£"  ™ICKNC8$  ARE  10ENT 1- 

C 

UDEL240.O 
00  7*0  Jil.Nl 

IF (UN (J)-U0CL2> 740. 740, 7 10 
710  J0EL24J 

U0EL2MUN(J) 

740  CONTINUE 

■R  I  TE (I0T , 750 ) 

750  FORNAT(///|OK, *•••  FAT»L  ERROR  IN  SUBROUTINE  FLMNl, ■  /I5«, 

I  UNREALISTIC  VELOCITY  PROF  I Ll , • / 1 5», • job  ABORTED.') 

•  TOP 

740  JDEL2* ( J0EL2* J-t )/2. 

J0L24J0EL2*! 

IF (NC1-J0L2 >450 ,770.770 
770  DILT2*Y( JOCL2) 

VARI0U8  BOUNDARY  LAYER  PARAMETERS  ARE  EVALUATED  BY  INTEGRATING 
THE  VELOCITY  PROFILE.  THESE  INCLUDE  THC  OlSPlACENCM  ThuJnESS. 
MOHENTUN  OIFICIY  THICKNESS  AND  THE  VCLOCITT  PROF ILC  SHAPE  F AC  TOR. 

780  60  TO  (7*0. BOO), JLOOP 
7*0  RAOaRAOt 

ALPH* ALPHA (| ) 

60  TO  BIO 
•00  RA04RA02 
ALPH4ALPHU 
•  10  NCdlMl 

NC (2)RJ0L2 

NCdlMO 

NC(4)M0 
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C 

C 

C 


CALL  ULlfcT  INC, OY.T. RAO, U",*O.DlSP. HON. N. £00*0. ALPH.0.1) 
60  10  <820, 8S0). JLOOP 
•20  5DtLl»12.*0tL T2 
SNOMOJJ.AMOH 
10131*12. "DISP 

SUTMUTAU 
60  TO  ft«0 

•10  S0tL2«l2.*0tLt2 
8MOH2b12.»mom 
SP182ai2."01SP 
BH2"H 
WWiUTtU 


St  CQNOl  t  i  iHt  PROF  IlE  Sum  tM(  main  stream  IS  malt  alii, 

•ao  ifijbtbtiiono.bso. io«o 

JSIRI  2EMU 
•SO  MiAOIlt. 120)JV(L 

IS  I  JvtL)S«0. 990, B*« 

JtlMI  itkU ,  JVEL  NONZERO 

THE  THICKNESS  OS  ThI  DtlmititAli  boundary  LAVE*  IS  SI  AO  I*  BELO*. 
8*0  Bt  *0 ( IN, ISO  IDE l M 

ouii*o(tn/i2. 

IF (OEt *  1-01 Apa IN J STO, 870, ISO 
•70  JDtLlli .OOQlt toil r [/Orifl*«2> 

CO  TO  *20 

••0  IS (OtLt l-*"»00«!*)9|0.800.880 
8*0  NRJTE(10T,900) 

800  FORMAT (///lO*.  '•••  EATAL  tHROR  IN  SuBROUlIRt  f  L  MN  J  .  •  /  1  9*  * 

1  1  SOiC  IS  |(D  VALUE  OS  UCLM  IS  TOO  LAB6E  SOB  TN|  CBIO  S1ZE.'/|9X. 

2  'JOB  ABORTED.' I 
STUB 

910  JCELIb1.000I«(»»C2*(OELI1«OI*0»I»*)/OviOOI 
920  J0LIAJ0UI91 

v(«M(a(r»(k7))/»0IWJ 

BEAOIIM.I JOJJDAT 
IS  <JDAT)9J0. 190.910 

J3TRY  ZERO,  JvEl  RUN/lRC.  JOAT  NONZERO 

THE  BA|H*STME*H  CUBE  VfcLUCl Ty  AND  COLE’S  BBOSILt  PARAMETER  tat 
beau  in  belon.  these  -ill  be  used  to  constbuCt  the  main-stream 
VELOCITY  PROFILE. 

9J0  NEAO(lN,<MOTLOELl.*’«BH| 

9*0  S OB N8TISS |9.10) 

CNALL«0ELI1/NE» 

OnAVBO«ALL*2.«PANM|*s*| 

CALL  "LA»  CUOELt.**UC-ALL»0»AL.UfA«) 

CO  TO  9*0 

JStUt  ZERO,  JvEl  NON/EBO.  JpAT  ZERO 

THE  BAIN-SINE*"  CORE  VtLOCITT  ANO  SKIN  FRICTION  COEFFICIENT  IK 
HEAD  IN  BELON.  THESE  "ILL  BE  USED  TO  CONSTRUCT  THE  MAIN-STREAM 
VtLOCITT  PROFILE. 

990  RE AO l  IN»9*0 )UUl LI  *  CF 
UTAubuOEL l"SflRT (CF/2. ) 

PAHR|sxk/2."IuOEL1FUTAU*AB|*ALU6(OELTI"UTAU/NEh)*OnAIL) 

THt  LAN  OF  THE  nALL  (BlTHOUT  VAN  DRIEST '•  MODIFICATION)  AND  ThE 
LAN  OS  THE  NAnE  ARE  USED  TO  CONSTRUCT  THE  VELOCITY  PROFILE 
THNUUCHOUT  The  naIn-STHEAh  LATER.  VAN  DRIEST’S  ROOIFICaTIOM  is 
NOT  REOUIREO  MERt  SINCE  SUCH  FINE  STRUCTURE  IS  IMMEDIATELY  Oes- 

iroteo  in  the  free  shear  layer. 

9*0  00  9/0  RVAN2 I . JOEL  I 
VVav<Av)-DO*lN 

UM(rv)si/TAU*(*RI AALUCCuf AU*rr/NEN7sONALLA2.APARHiN*m a(BIN(PI/2. 

I  •  V V/OCL  T 1 ) J **2I 
970  CONTINUE 

THE  MAIN-STREAM  CORE  TELOCITY,  ABOVE  THE  MAIN-STREAM  BOUNDARY 
LAYER,  IS  INITIALIZED  BELOn. 

00  900  JBJOLI.N 
980  uM(J)BUOtLt 
CU  TO  1020 

JVEL  NONIERU 

990  REAO(lN,IBO)(UH(J),J*N2,N) 

the  NA|N*STREAN  BOUNOARV  layer  THICKNESS  AND  CORE  VELOCITY  ARE 
I PENT  IF IEO  BELOn. 

OOELIB0.O 
00  101 B  JBN2,N 

If (UH(J)NUOELl I  1010,1010, 1000 
1000  JOEL  1 ■ J 

UOELIBUNIJ) 

1010  CONTINUE 

JOL 1  a JOEL  I  *  I 
OtLTIBYIJOELl 1-DDnIN 

VARIOUS  BOUNDARY  LAYER  PARAMETERS  ABE  ( VALUATEO  BY  lNtE6R«TINe 
ThE  VELOCITY  PROFILE.  THESE  IhClUOI  The  OIBPLACCHCNT  THICKNESS. 
HONE  NT  UN  0ES1C  It  ThICknESB  ANO  VELOCITY  PROFILE  SHAPE  FACTOR. 

1020  IF (JDL1-NC2I10B0, 10*0,  1 0  JO 
1010  NCU7RN2 
NC(2)8NC2 
NCIDBJOLI 
NC(*)»0 
60  ru  1090 
io*o  *cm«*7 


NC(2)bJ0l| 

hc(J)*o 

NC(*)BO 

1090  CALL  BLlNI  (Nl.DT, *.RAD,UM,ho,DIBP,hOM.h,COORO,ALPM,OOB|N) 
60  TO  1100 

c 

C  J8TRT  nonzero 

C 

10*0  BO  TO  (1070. 1080). JLOOP 
1070  NF ILEaIFI 
60  TO  1090 
IBM  nfileaif* 

1098  CALL  FLlNa  1y.Y0LD.UM, SOLO. B, NOLO, N2,NFJlC) 
list  00  mo  JaN I , N2 
IIIB  UN(J)aO. 

60  TO  (1120. 1190). JLOOP 
1120  MBJ (E ( IF l *|*ICU> (U« (JI.JBI.NDIN] 

P0ELl*l2.*ptLTl 
PMOMI«|2.*MON 
P0IS1* 12. "OISP 
PH  l  AH 
PUTIBUTAU 
oo  mo  j*i.n 

1 1  JO  UHKJ)NUH(J) 

SMABSbO.O 
00  11*0  J I >  2 , N 1 

RRAvEb(RLOCI (JI)aRLOCI(JI-I ))/2./BA0l 
NOAvEa(RO(Jt)*ROUI*l  >i/i. 

U A VE ■ ( UR ( J I )*UMiJI-l ))/2. 

||80  AMASS* INASSsROA  Vt  *UAvt*OY(Jl IaRRAVE 
60  TO  1170 
1190  PDil2*l 2. *OEL  7 1 
P»O"2*12.*n0h 
P0I82*12.«DISP 
PH2*H 
PUT2AUTAU 


C  THE  BTREAnaIBL  YELOCIIT  ACROSS  ThE  BLOT  LIP  MALL  IB  BET  TO  ZERO, 
C  RtCABOLtSS  OF  USER  SPECIFIED  INPUT. 

C 

DO  1180  Jaj.N 
11*0  UM2(J)*UM(J) 

1170  CONTINUE 


C  INFORMATION  ABOUT  THE  InFLOn  BOUNDARY  CONDITIONS  IB  PBlNttO 

C  BELON.  IF  THIS  OPTION  HAS  HEEN  SPECIFIED  BY  THE  USER. 

C 

IS ( JPRN) |200, 1 1 AO. 1200 
1200  mRITC (IOT, 1210) 

1210  FORMAT (//9x, **1  INFLON  BOUNDARY  COnO! T IONS’ //BA. 

1  ’A)  AT  THE  POINT  OF  INJECTION’) 

"Rill (IOT, 1220) 

1220  F0RNAM//1IK, '-TRANSVERSE  DISTRIBUTION  OF  BTREAMMISE  VlLOCllYI* 

I  /!*, *Y  (InchEB>'.9J<. 'VELOCITY  u  (FPS)') 

CALL  0TPT2  (N.V.UHI) 

IF (JSTRT) 1290. 1210, 1290 

1210  NRlTE(lUT.12K0>8DtLl.PDELI.BOlBl,P01fll.BNOH|,PMOMi.BM|,PN|, 

1  SUM, PUT! 

12«0  FORMA f<//«9*, ‘BOUNDARY  LAYER  AND  RELATED  PARANC  TEBB'//J7a, 

|  ’PARAMETER’.  )*X«  '  SECONOAR  Y  PRlMAMv’/SBl. ’STREAM’, 1BX, 

2  ' S TR£ AM ' //29* . ’BOUNDARY  LAVE*  THICKNESS  <IHCHCS>’.21A.E1«.7,2A. 
J  EIA.7/29A.  ’DISPLACEMENT  THICKNESS  <  INCHES! « .2|K.tM. 7,21, El«. 7/ 

8  29X, ’NOHENTUN  DEFICIT  THICKNESS  (INCHES) I9A.EI*. 7,21,(18. 7/ 

9  29* .  •  VCLDC  ITT  PROFILE  SHAPE  F  AC  TOR  •  .29*. 1 1 8. 7.2A.E  1*.  7/M«. 

*  ’FRICTION  VELOCITY  (EPS)'. SIX. EI8. 7, 21. Cl*. 7) 

60  TO  1270 

1290  MR1 Tt ( 1 OT, 12*0) SDEL!.3D!SI,SmOH|, SH|. SUM 

12*0  FORMAT!//  *9*. 'BOUNDARY  LAVER  ANO  RELATED  pabanE TERS ' // J7A, 

1  ’PARANEIER'.lbX, 'SECONDARY ’/BBX, ’STREAM’ 

2  //29*» ’BODNOANY  LAYER  TMJLKNtSS  (INCHES)’, 21*. II*. 7 
J  /29X. ’DISPLACEMENT  Th|CKM»3S  ( InChES) • ,2Sx. El*. 7/ 

a  29*. ’momenium  deficit  thickness  (inches) ',i*x. it*. j/ 

9  29>. 'VELOCITY  PROFILE  SHAPE  F ACTOR’. 2SX, (la. 7/29*. 

»  ’FRICTION  VELOCITY  (EPS)  Mix, Et*. 7) 

1270  nRITE(10T,I2B0Ixh*SS 

1280  FORMA T ( /25 V , ' ThE  MASS  ISSUING  FROH  THE  SLOT  IS'. Cl*. 7.’  LB"/B(C’ 
I  ,'/FT,’l 
■BITE ( 101 , 1290) 

1290  FOBMAT(//|lX. ’-IBANSyEBSE  DISTRIBUTION  OF  TRANSVERSE  VtLOCHYI’ 

1  //IX.’Y  (INCHES) '.9I», 'VELOCITY  v  (EPS)’) 

CALL  0TPI2  (N.Y.VHIJ 

afl)iE(ior.i)oo) 

IJOO  F0RHAr(//|lX, ’-TRANSVERSE  DISTRIBUTION  OF  TEMPERATURE  I ’  // 

)  IX,  'Y  (INCHES) ’, Six, ’TEMPERATURE  T  <"R|’) 

CALL  0TPT2  (N.Y.THi) 

NRITEt lOT.llic) 

I >10  FORMAT ( //■*• ’B)  tint  STATION  UPSTREAM  OF  Th|  POINT  Of  INJECTION’) 
NRITEt IOT, 1220) 

CALL  0TPT2  (N.Y.UM2) 

IE  (JSTRTM3S0.  1120,  I  S  JO 

1120  bRI TCI IOT, 12*0 )SDEL2.P0EL2. SOI S2.POIS2.SNOM2,PNON2*BH2.PN2,SUT2. 
I  PUT2 

USB  NRI  Tl  ( IOT  ,  1 290 ) 

CALL  0TPT2  (N,T.vM2> 

PRITE(IOT.)SOO) 

CALL  0TPT2  (N.V.TNJ) 

C 

c 

IJAO  RETURN 

INO 


. . ••«■•••  E  NRCH  A* A ••••• A*a*****a*AA*#*a« 

C”””””””’”””””"””  FNRCM  a. . . . . 

. . AAA  AA  F  NRCH  . . . . . . . 


SU8R0U1 1NE  F  NRCH  (UN,U"l.UM2,VH. VN|, VM2.R0.B0I.R02, TR. THI.TM2. V. 

1  OY, JPRN. M. 01, 02. U». it. *M, PA Th.T atm, i«. A A, SCAB, 6C, 0». OnIN.COOBO. 

2  RAO I ,RAD2, ALPHA .RDIuB.UI NF , T INF , YvALL ,P*(S. PBLOT .PMA1N, Nl , N2«N, 

1  NCI,NC2.U"LAS.TmLAS,vBC,yTRB.RlOC.RLXI.BLOC2.PART2»PART1,PABT*. 
*  PART9,PAHT*.A  B,C.0,AP,Ai),Au.PABT7,AL*,ATRB, tnoed, JHEAT.TmMAX, 

9  N01M) 
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THE  PURPOSE  Uf  IMS  SUBROUTINE  IS  IU  COORDINATE  THE  OQmhSTREAN- 
MARCHING  PROCESS.  IMS  IS  ACHlfVEO  BY 

A)  NOMlIURlMH  txt  CONVERGENCE  Of  THt  StNtA*R|St  XlKIII, 
EO0Y-VISCOSIIY  ANO  TEMPERATURE  MOV  1LES.  ANO 

SI  STEPPING  Tut  SQtUTlON  PROCCOuRE  FRQH  0 Ml  STREAHhIIC 
St si 10*  IU  INS  Mill. 


INTEGER  CUOMO 
REAL  Mix 

DIMENSION  VN<))*t>rtl<l  J,  VH}m,N0(J),lt01f  l>* 

1  SUm.lHlI).  IMIU).  In2CI).V(U.0v(1),ALPMAU>.ROIU#CII,U|NVU), 

2  tiMHn.v«*LL(i>.msm.mm.vTMtui>.uNLAS(i).UN(n»«tfttfoi. 

S  THLA9(U,HLOC<U.RLUCmi.RL0C2U).PARt2Cn,TNOLDH),PART7(l>. 

A  PAUtlCU.P*aTaU>.PANr*(ll.PARTa(tl.A(l),S{l).C(l),D(l).AP(l), 

v  tyuMuD) 

com-om  iM,iui.in.iV4.if s. iv v.^s. iv*. if ?. ivs.«»*. iris, i«tcu,iiuci 


CWMMal.uO 
UNLI»aO.QO0l 
I  Ml  I *«0 , OOO I 

■PlifcNSO 

ARRAY  PAMIB  IS  LOADED  UlLU". 

u»4u*«4,.o»(MCi)«of  (Men /os 
00  >0  Jai.MCI 
to  HAlflal J)aov2ui 
nC  1 1  »nc  l*i 

OtiO**i.«O»(MC4)»0Y (NC4I/0S 
00  40  JaMCH.MC? 

40  PARTa I j)«ov2Ui 
MC41SMC4«1 

0»40»»4.«0Y(M)»0»IMJ/U* 

00  SO  J«MC41*M 
SO  PARTa(J>«0Y20» 


1  Mi  COUP  tfCLOa  CONTROLS  THt  OOaNSTRE am-kASCMNC  PROCEDURE  »T 
STEPPING  IMi  SOCU7IUN  IHMUU6M  Each  SIA110N  V  ROM  4  THROUGH  R. 

OU  MSO  R0UNta4,M 
**<»UUM-|  )*0I«04 

Hi  AO 1 MGS  ARt  PMIMtiO  HELQm  If  IMIS  OPTION  MAS  SEEN  SPEC  IV  ICO  BY 
TMi  USER. 

IV (jPMMlao.ao.au 
MO  «M|HI10I.*0>*OOMT.I 

SO  VORMAtCt'.  !*.••••  si  A!  ION  aumSMS.II.'l  a'.FS.a,'  »Ekt*l 

A!  IMI  ViHSl  statium  oo-mstream  UV  THE  P0IN1  OV  INJECTION  (I.E.* 
MOUNT  •  41  NtaStiNAHcE  GUESSES  MOST  hi  NA0E  AT  VALUES  IN  AMRAVS 
UM.  VM.  in,  UMLAS  AMO  TNLA9.  AT  ALL  0TMCN  STATIONS  (I.E..  MOUNT 
>  4)  VALUES  V MOM  THt  PREVIUOS  STATION  OR  ITERATION  MILL  SUVVICC. 

aO  If (MUoMI.2) 70, 7v* I 10 
MOUNT  a  2 

70  00  «0  J*I.N 

UM(Jla4.au«ltJ)*UNi(J) 

WMLAS(J)auM(JI 

VN|Jl82.*VNlUI*VN2tJ) 

IMJ)a4.«TMl(J)-TM4(J) 

SO  T"L*S(J)aTMCJl 
MMlaPNCS(l) 
pHjaPMA (M 

iv (CuuMoiao.ao. iso 
vo  m»u* i.o 

UO  100  Jal.N 
MLOCIJiai.o 
100  PAMT4(J)a0.0 
Gu  10  l%0 

aUUNI  •  2 

110  DO  140  Jal.N 
uM2(J)auM|  UJ 
UMKJ)auH(j) 

0ML  A3(  JlatlNl  J> 
vm2( J)avN| i J> 
vn|(JiaVM(j) 

IM2I J)*TM| ( J| 
fH|<J)aT»|j> 

TMuASIJlaTMJl 
R02UiaNoi(JI 
R0I ( JiaROI J1 
140  CONflMut 

PHjaPMi 

PM|aPR 

IV  UOOMOl  ISO,  ISO, ISO 
ISO  00  ISO  Jal.N 

HLPC2I JJaMLOCI 1 21 
140  RLOCI (J)aMLOCIJl 
RA02aRA0| 

RAQIaNAO 


TmC  VOLLO*|NC  CONPuTaHOMS  arc  PERFORMED  mhEmCvCN  THt  SOLUTION 
AOVANCES  10  TmE  ME  II  |TRCAn«1SE  STATION.  INCLUDING  THE  V  |RST  ONE, 

ISS  PR8PRE B (MOUNT  I 

VMAiawMALE (AUUNI ) 

UVMECaUlNV (MOUNT  I 
TVRCEaTlMV (MOUNT) 

ARRAY#  PARTS  AMO  PARTS  AMt  LOAOtO  BELOa. 

IV (MOUNT. 2) »as, ISO. 400 


00  l TO  Jal.N! 

170  PAR tOIJ)aPANfO(J) »GC «P TRN 


PIRNaS.aPR.a.aPMi »  B.S*PILOT »0. V*PMA1N 
00  ISO  JaM|.N2 

ISO  PAHTS(J>aPA«TA(J)aSCaP1RN 

N4I«N4«I 
DO  ISO  J«N2I,N 

IS#  PARtalJ)aPARTAIJ>a6C«PTR« 

SO  10  220 


DO  210  Jal.N 

2u  PARTSI JlaPANiai j l *CC *P IRm 
>20  0P0*aPTRN/2./O* 

00  2J0  Jal.N 

21®  PARTSt JlaPARlO I J)a (0M2( J  )••.* UN l(J|) 

c 

C  IN  TM(  CASE  OV  AIISVNNtTRIC  fLO«  THE  TRANSVERSE  OISTNISutlON  OV 

C  LOCAL  RADIUS  ANO  ARRAY  PAM 1 2  ARE  CONPUlEO. 

C 

IV (COOS0I270.270.20S 
its  R AQPRO luS (MOONl I 

COIAL«COS(ALPNA(«OUNri) 

DO  2S0  Jal.N 

>S|  RLOC(J)aRAO-COSAL*T(J) 

00  2*0  JaJ.NMl 

>00  PARTX J)a(RLOC( J* I J-mlOC l J«1 ) ] /RLOC ( J) 

>70  CONTINUE 
C 

c 

C  THE  VOLLOalNS  LOOP  CYCLES  ImROuSN  TEN  ITERATIONS  ATTEMPT |N6  TO 

C  SOLVE  THE  E MERCY  EQUATION.  THESE  ITERATIONS  ARE  OMITTED  IV  THE 

C  USER  HAS  SPEC IV IEO  THAI  THE  ENERCV  EQUATION  a|LL  NOT  SC  INCLUDED 

C  IN  THE  SOLUTION. 

C 

00  S70  I  TER  I  a  1 • 1 0 
IV(JHEAT)2St.SI0.200 

C 

C  HEADINGS  ARE  PRINTEO  SELOa,  |V  INIS  OPTION  HAS  SEEN  SPECIVIEO  ST 

C  THE  USER. 

C 

21#  If ( JP*N)2S0. SI 0.2*0 
2»o  aRITEIIOT, SOOlI TERT 

SSO  VORHAT (///SI. *  IE Mp| RA TUNE  ITERATION  NUHSER'.IS) 

c 

C  THE  TRANSVERSE  DISTRIBUTION  OV  DENSITY  ahO  mInChaIIC  VISCOSITY.  AS 

c  MELL  AS  ARRAYS  PARTS  ANO  PART7.  ARE  COHPoTCO  SELOM. 

C 

sip  00  S20  Jal.N 

RO(J)aPH/RCAS/TH(J) 

S2o  vSC(J)*NEa(lH(J))/HOIJ) 

00  ISO  Jb2»nh1 

SSO  PARTS(J>a(RO(J«l)-RU(J-l))/RO(J) 

DO  1«0  Jal.N 

ISO  PAR17(J|aPANTaiJ)a(|N2(JI-«.atH|(J>) 

C 

c 

C  THE  VULLOalNL  LOOP  CYCLES  THROUGH  I£n  |T(RAI|OnO  ATTENPTInC  1U 

C  SOLVE  THE  mumEnTUN  and  CONTINUITY  E0UAT10NS. 

C 

VNHULal • Of via 
00  SOS  ITEHual.lU 
C 

C  HEAUlMGB  ARE  PM1NIE0  BELOa.  {V  »NJ*  OPTION  HAS  BEEN  SPECIVIEO  ST 

C  THE  USER. 

C 

IMJPMNmO.SlO.IVQ 
Hi  BMiTEdur.saomEMu 

Sat  VOBHAK/VIII. 'VELOCITY  1IERATI0N  NUMBER1. 1*1 

c 

C  SUBROUTINE  VLMVU  IS  CALLED  TO  EVALUATE  THE  EOPWISCOSIIV  PRO- 

C  FILE  AND  IU  SOLVE  The  hU-HnIun  ANO  CONIImUITT  EQUATIONS. 

c 

S/O  CALL  FLNVU  (N.UA.0Y.U4,  JPRN.OI ,CU('NO,Om|m,RAO.RAO)  .RAV2.DP0I. 

1  AOCEN.NCl.NtJ»V.fct.UN,U«l.U«2.VN.RO.ROt,NQ2.TN. V9C. VTRS.uVREE. 

2  VMAL.RLOC.RLOCI.*lOC2,PAHI2.PAHTS,PaHTa.PARTV.PANTa,UNLAS,A,B, 

S  C.P. AP.AU.AU, DELHI 

C 

C  CONVERGENCE  Of  The  S)mEAN«|9E  vELOCIIv  »ROVIlC  IS  CHCCafO  StLOa. 

C  IV  CONVERGENCE  NAS  OCCURRED  ThI  EnIRGV  EQUATION  a|LL  SE  IAC*LEO 

C  NUT.  IV  NOT  ThV  OLO  STREAaaJSE  VELOCITY  PROV  iLl  allL  St  REPLACEO 

C  BY  THE  HE  a  PROFILE  ANO  ANUYMER  ITERATION  .ILL  BE  aTTIHPTEO. 

C 

VNRNUaO.O 
OU  SSO  JB2.N 

Sto  VN»HUa»NRHU«AOS(U"( JI-UHLAOI J»l/U»( J) 

VNRNUaVNRHU/N 

c 

C  CONVERGENCE  PAMAHLTERO  AMI  PRINTED  BELOa,  IV  TmIS  OPTION  HAS  SEEM 
C  SPECIVIEO  OV  THE  USER. 

C 

IV(JPRN)A*0,aie,*QO 
S*0  mRITE(10T,000)Vnrhu 

•  «Q  VORNATI/III.'VELDCITY  FRACTIONAL  OISPLACEHCNt  norm  a'.EIS.B) 

•10  If (VMRNU.UNLialaQ0.aB0.A20 
•2o  If  (lURU-aiajo.aJO.avo 
•So  VNHULaVNRHU 
DO  aao  Jal.N 
•BO  UNLAS(J)auNlj) 

GO  TO  aSO 

•VO  |V(FNRNU-CONaT*VNNUL>iOO,BBO.aBO 
•40  VNHULaVNRHU 
OU  «70  Jal.N 
•Vo  UHLAOIJ)aUH(J) 

•BO  CONTINUE 
C 

C  SUBROUTINE  VlnTO  IS  CALLtO  TO  SOLVE  The  ENERGY  EQUATION.  If  THIS 

C  OPT 10*  NAS  SEEN  SPECIVIEO  BY  THE  USE*. 

C 

•00  ]f ( JMEATlVOO.alO.VOO 

Ms  CALL  VLNTO  (UN. VR. TN, THI . Th2, vSC . VtBB. Aln. ATBS. BO. PARIS. PARTS. 

1  PART«.PAHT7,RLOC,A.B.C.O.AP,AS,AU.OV*Oi,B,NCI.NC2.TNOLO.V,OCLT|. 

2  TVREE. MOUNT, TATN) 

c 

C  CONVERGENCE  OV  Tn|  TEnpEBaTuRE  PROFILE  IS  ChECMEO  MLOb.  IV  CON- 
C  VERGE NCE  HAS  MOT  OCCURRED  THE  OLD  TEMPERATURE  PROFILE  IS  RE*LOCIO 

C  ST  THt  Nta  PROFILE  ARO  ANOTHER  ITERATION  IS  ATTCNPTtO.  |V  CONTE RG» 

C  ENCE  "AS  OCCuRREO  THE  PROCEOU*!  NOTES  ON  TO  TNf  Nt IT  STREAM* I SE 

C  STAMUN. 


Figure  A-l : 
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00  910  J*2.N 

510  FNMMtaF  WMTyABSI  Tm(J)-Tml»S{J>)/TM<J) 

FNRMtaf  MMMT/N 
C 

c  convergence  »«mum  arc  printed  belor.  ir  this  option  has  been 
c  specified  •*  inc  user. 
c 

IF  I JPRn)52B. 9*0.920 
920  NRItCdOT #510 IFnRMT .  TN d  ) 

510  FORNAT(//*«,' TEMPERATURE  FRACTIONAL  DISPLACEMENT  NORN  a’.Cll.A 
l  .91. 'NALL  TEMPERATURE  a'.Ell.*.'  "R'> 

940  I# (FNANT- f nl I" ) 510 . 5S# i 550 
990  00  9*0  J41.N 

UNLAI(J)aUMU) 

9*0  TNLAXJlaTNU) 

570  CONTINUE 
SRO  CONTINUE 

■RITEdFJ' 1REC  T ) ( TM(J). Ja| ■ N01M) 

c  THE  final  TEnPERaTuHE  PROFILE  FOR  THE  ITRE ANMltE  ITATION  RE1N6 
C  PROCE SOEO  IS  PRINTED  MELON.  IF  THIS  OPTION  HAS  REIN  SPECIFIED  Bv 

C  THE  USER. 

IF(JPRN)S4S#*1S.S«S 
540  aRlTEUOT.AOO) 

*00  FORMAT ( ///Six « 'TRANSVERSE  UISTRIBUTION  OF  TEMPERATURE1// 

I  1*.'T  (INCHES)*, 92*. 'TEMPERATURE  T  I"l)'l 
CALL  0TPI2  (N.T.IM) 

*10  CONTINUE 

nRITE (IF  I  1 I*eCU){U"(J). Jal.NOIN) 

c 

c  The  final  STREANnISE  VELOCITY  profile  for  the  streannxse  station 
C  HE  I  NO  PROCESSED  IS  PRINTED  t)ELO».  IF  THIS  OPTION  HAS  BEEN  SPECIF- 
C  1E0  BT  The  USER. 

c 

IF  (JPRNJ*20#*40.*20 
•20  NRI IE (10T. *  SO  > 

•so  fornat(///44*. 'Transverse  distribution  of  streamnise  velocity*// 

I  I  X ,  1  T  (INCHES) '.51*. 'VELOCITY  U  (FPSJ'I 
CALL  0TPT2  (N.Y.UMI 
••0  CONTINUE 
C 

C  IF  THE  NALL  TEmpCmATuRE  has  EXCEEDED  THE  SPECIF IEO  MAX I  NUN  ALLOm- 

c  ABLE  TEMPERATURE  THE  JOB  IS  TERMINATED  IN  A  CONTROLLED  AND  USUAL 

c  MANNER. 

C 

IF  (TNd)-TMNA*)*50,»60,**0 
•50  CONTINUE 


*•0  RETURN 
ENO 


'U 


SUBROUTINE  FLMVU  (N,Oa.OY.02.jPMN.QL.CQO«O.OmIN.RAO,RAO\.«lfcOS, 

1  UPU* , KCOEn , nCI .NC2.Y.0C.UM.UMI .UN2.VM.R0. ROt .R02. TN, VBC . VTRB. 

2  UFREE, V«AL* ML OC.RLOC I. RL0C2.P ART2. PARTI .PAR T4, PARTS. PART*. 

1  UMLAS.A.B.C.P.AP.AO.AU.OILTI) 


THE  PURPOSE  OF  THIS  SUBROUTINE  19  TO  CALCULATE  TnC  DISTRIBUTION 
OF  STREAM.iSE  VELOCITY,  TRANSVERSE  VELOCITY  ANO  EOOY  VISCOSITY 
THROUGHOUT  TH(  BUUNOARY  LAYER  AT  A  GIVEN  STREAMNISE  STATION,  THIS 
IS  *C  IE yEU  BY 

A)  IOENTIFVINC  THE  BOUNDARY  LAYER  TO  BE  OF  THE  NALL  JE»  OR 
CONVENTIONAL  TYPE  BY  SEARCMlNS  FOR  A  LOCAL  VELOCITY 
NAXINUM, 

B)  CALCULATING  AN  EOOY-vISCOOITY  PROFILE  BABEO  ON  A  TaO- 
LAVER  ROOIL  NHICM  EMPLOTS  Th|  PRANOTL  NIXInG-LINCTh 
HVPOImESIB. 

C)  SOLVING  A  SYSTEM  OF  LINEAR  ALGEBRAIC  FINITE-OIFFERCNCE 
EBUAT1UN3  MNICM  APPROXIMATE  THE  DIFFERENTIAL  EOUATIOM 
FUR  THE  CONSERVATION  OF  MONENTUN  IN  AN  INCOMPRESSIBLE 

Turbulent  boundary  later,  ano 

0)  SOLVING  The  CONTINUITY  EQUATION  IN  F INI TC -DIFFERENCE  FORM 
TO  OBTAIN  Th|  DISTRIBUTION  OF  TRANSVERSE  VCLOCITT  THROUGH¬ 
OUT  THE  BOUNDARY  LAYER. 


INTEGER  COORO 
REAL  HER. HEMAL 

DIMENSION  UMd),UNtd),UM2d),VMd).TNd)aAd)(BO).Cd).0O). 

1  VtCd)»ROd).ROld>,RO2d).VTRSd).Vd).OVd),RL0Cd).RLOCim» 

2  RL0C2d).PART2d).PARTJd).PART*d),PART5d),PART*d),UMLASC1l. 

1  Afldl.APd  I.AUd  ) 

COMMON  |N.10T.IFt,|F2,IF),IF4,IF5.1F*.IF7.IFB.IF«.IFt0,IRCCUvIBECT 


NM I  BN- 1 
Plal. 1*1542* 

AA*20.S* 

IRBB.415 

Mf  aALaNC* ( TN( 1 ) ) 
ROaALaROd) 


;aaaaaa*aaaa**a  CALCULATING  THE  EOOT-VIBCOBI T Y  PROFILE  •»»••»♦•«•«**•••• 


THE  EDGE  OF  Tm|  BOUNDARY  LAVER  IB  LOCATED  BY  IDENTIFYING  INC 
LOCATION  aHENE  THE  BTRf AMMlBE  VELOCITY  01FFERB  FROM  THAT  IN  THE 
FREE  STREAM  BY  ONE  PERCENT.  IF  SUCH  A  VELOCITY  DOES  NOT  EXIST 
THE  JOB  IB  ABORIEO.  IF  SUCH  A  VELOCITY  POES  EXIST  THE  CORRESPOND¬ 
ING  BOUNOARV-LAVER  THICKNESS  IB  CALCULATED. 

00  10  J*t.NM| 

JOELIBN-J 

OUANTa(UFREE-UN( JOELI ) )/WFREE 
IF ( ABSIBUANT l-D.OIS) I S, 10.11 
10  CONTINUE 

MR1TECI0T.2D) 

20  FOBNAT (/// 1 OX .  FATAL  ERBOB  IN  SUBROUTINE  FLHVU.'/ISI# 

I  'VELOCITY  PROFILE  IS  ONE  0INEMS10NAL. */l«X. • JOB  ABORTED.*) 

ST  OF 

10  IF ( Ou ANT >50.50. *0 
40  UOEL 1*0. 44*UF REE 
GO  TO  *0 

50  UOELlBl.OiauFRCE 
*0  JOLI|aJOEL)«t 

DEL  T  I  *T  (JOEL  I )• (UOEL t-UM( JOEL l ) ) /( UN( JDL 1 1 )-U*( JOEL! ) )*DY( J0L1 1  ) 


C  A  CHECH  IS  HADE  TO  DETERMINE  rMETNER  OR  NOT  THE  NALL  JET  SOU NO ARY 

C  LATER  NAS  ALREAOV  DEGENERATED  TO  A  CONVENTIONAL  NALL  BOUNOARf 

C  LATER  AT  BONE  PREVIOUS  UPSTREAM  LOCATION. 

C 

IF (K0GEN)250.25S. TO 


C**aaa*aaaa*aaaaa  CASE  I.  CONVENTIONAL  BOUNBarv  LATCB  *•••*(*•«••*••••«• 
C 

C  TNC  DISTANCE  ABOVE  THE  hull  nhCRC  TnC  INNEB  ANO  OUTER  LAYERS  OF 

C  THE  BOUHOARt  LAYER  INTERSECT  IB  CALCULATES. 

C 

70  YOUtaDELT t aiLANR/XR 
00  BO  JOUT |*|. JOELI 
IF ( Y ( JOUT l)-YOUT)BO.BO.IOO 
BO  CONTINUE 

NRITEdOf.OO) 

ft  FORMAT (///I OX. ••••  FATAL  ERROR  IN  SUBROUTINE  FLNVU.'/19i* 

I  'INCORRECT  EDDY- VISCOSITY  FORMULA? ION. • /|9l. • JOB  ABORTED.' > 

STOP 

IS#  JOuTaJOuT 1-1 
C 
C 

C  THE  FRICTION  VELOCITY  AT  The  MALL  IB  CALCULATES. 

C 

OuOTbm( 1B.«un(2)-4.«un( 1)«2. *UN(4) )/*./BV( 2 ) 

IF (OUOTm) 110. 110. IIS 
110  HRITEdOT,  120) 

12S  FORMAT (///|SK. '4aa  FATAL  ERROR  IN  OuOROUtlNE  FLNVU.'/tfX# 

1  'VELOCITY  GHAOIlNT  AT  THE  NALL  NAB  GONE  NEGATIVE. '/I9I. 

2  'JOB  ABORTED.') 

STOP 

US  UT  AgaSGRT  (VBC  II)  aOUDYN) 

C 

c 

C  THE  EOOY-VISCOSITT  PROFILE  IN  THE  INNER  LAVER  IB  CALCULATED 

C  USING  VAN  DRIEST 'S  FORMULATION  FOR  THE  M|ilN6  LENGTH.  N001F- 

C  IC AT  IONS  TO  ACCOUNT  FOR  PRESSURE -GRADIENT#  NEAT  ANO  NASO 

C  TRANSFER  EFFECTS  ARE  Out  TO  CEBEC1. 

C 

VTRB( I )*0»0 
IF(OPOI) ISO# 1*0# ISO 
1*0  PPLUBaO.O 
SO  TO  1*0 

ISO  PPLUG*-VSC (N) aGC/ROIN) /uTAU/UTAU/Ut AU*OPOK 
1*0  IF(VNAL))40. 170.140 
C 
C 

C  Ml TN  NO  NASS  TRANSFER  AT  THE  MALL 
C 

170  XN*SORTd.-ll.SaVSC(l )/vSC(N)*RO(N)/RONAL*PPLUS) 

00  ISO  JB2.J0UT 
YYBY(J) 

OUOTa(uN(J*|)-UN(J-l ))/(OY(J*l )«0*(J>) 

TERNal ,-CXP(-uTAU*vy/aa/vSC ( J)*XN*|QRT (ROmAL/RO( J) ) 1 
V  TRS (J)a*R2*Y  Y« y y-TERN-TERN- AOS ( OUDY ) 

ISO  CONTINUE 
60  TO  210 


C  Ml  TH  MASS  TRANSFER  AT  THE  MALL 
C 

140  VNPLS*VaAL /UT Au 

PRT |aRO(N) /VSC  <N) /RO"AL/RO*AL*PPLUS/VNPlS 

PRT2a|I.B«MCMAL*VMPLS 

00  200  JB2.J0UT 

YYNY(J> 

DUDV • (UM( J* 1 )-UH( J-I )}/(OY(J«l ) ♦© Y ( J ) ) 

|NfRjaMEM(TM(J) ) 

PRT1*EXP(PRT2/IMCmJ) 

INaSBRT  (  IMEmJbPRT  1  •  (|  ,-PRTDaPRTS) 

TERM* I . -EXP(-UtAU*v V/AA/VSC ( J)-XN*SGRT (ROnAL/RO( J) I ) 
VTRBlJ)aiR2*TYaTY#  TERMaTERM* ABS ( DUO Y ) 

200  CONTINUE 
C 
C 

C  THE  EOOY -VISCOSITY  PROFILE  IN  THE  OUTER  LAYER  IB  CALCULATED 

C  USING  SPALDING  ANO  PATANHAR'S  RECOMMENDATION  FOR  YNE  RllING 

C  LENGTH  |N  AN  CSCU01ER  TmO-LAVER  FORMULATION. 

C 

210  VNIKHiLAHBaOCLTI 

YNlXtBYNlXaTNII 
00  220  J* JOUT I • NM| 

OUOTB (UM(J*1J-UM(J-|))/(0T(J*1)*DT(J)) 
VTRB(J)aTMll2*ABS(DUDY> 

220  CONTINUE 

VTR0(N)*VTRI(NN1) 


THE  NAXINUM  VALUE  OF  EOOY  VISCOSITY  IB  CALCULATED  BY  INTERPOLATING 
•ETnECN  6R10  POINTS  FOB  THE  VELOCITY  BRAOICNT  AT  TNC  LOCATION 
NHCRC  INNER  AND  OUTER  LAVERS  INTERSECT , 


Figure  A-l : 
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J|aJQUT-2 

J2aJ0uT-l 

JJmJOUT 

J4«J0uTl 

JSaJQUtm 

J4*J0UTU2 

0U0Yia(UN(JJ)-UM(Jl>)/(0V(JJ)«DV(J2)> 
«o©v2aluN(j4)-uN<j2>)/(0v(ja>*DV(jj)) 
OUOVJb(um(4S)-UN{JJ))/(OV(JS>*OY(J4>) 
DU0Vas(UN(J*>-UM(J4))/(0V(J4>«DY(JS)) 
OUDVNaGNINT  t  »OUT  .y(JJ).y(J3),Y{J4),Y(J3), 
I  DU0VI.0U0T2,DU0V),DU0T4) 
VTMMaVMlx2«AB8(0U0VM) 


Ml  JiaJOUT-2 
JJaJOuT-l 
JJaJOUT 
JAaJOuTI 
JSaJOUTm 
J4a JOuT I *2 

0uDYia{UN(j3)-uN(Jl ))/(OV(JS)*OV(J2)) 

DUOVSa(UM(JS>-UN(JJ)>/(py(J5)*DV(J»)) 
0U0V4a(UM(J4)-UN(J4)W(0V(J4)«DV(J5) ) 
PUOVNaCNlNT  (  Y  Qu  T«Y(J2),V(JS).V{J4).V(J5). 
I  DUO VI * OUOV2. DuDY 3 . DUOY4) 
VTHJaXLAM**lLAMS«0ElT2*PElT2*AS8(DU0VN) 


INFORMATION  THE  SOUND* NT  LAYER  IS  PRINTED,  If  THIS  OPTION 

HAS  IKK  SPECIF  ICO  BY  THE  USSR. 

IF(JPRM)234,530.2S0 

234  aRITtdOT,  240)  DEL  Tl.UOEU*  UTAU.  VTNM,  YOUT 

244  F0RMAK/24X.  ‘OCLTI  UOELl  UTAU  VTMM* . 

1  •  YOUT  ’/lAI.AUJ.fc) 

SO  10  530 


>••■••*•••••••  CAU  2.  NALL  JET  BOUNDARY  LAYER  •***•••*••••••*••••• 

A  SEARCH  1$  CQNOUCTEO  TO  OCPINC  THE  »JCT'  RE610N  Of  THE  MALL  JET 
BOUNOARV  LAYER.  THIS  IS  ACCOMPLI  SHED  BY  LOCATIMS  A  LOCAL  VELOCITY 
MAXIMUM  IN  The  VELOCITY  PROFILE.  If  SUCH  A  POINT  DOES  NOT  EXIST 
IT  IS  ASSUMED  THAT  THE  MALL  JET  BOUNDARY  LAVER  HAS  0E6ENERATE0 
to  A  CONVENTIONAL  TURBULENT  BOUNDARY  LAVER  AND  THE  'CASE  1' 
FORMULATION  FOR  EDDY  VISCOSITY  (ABOVE)  IB  APPLIED  FROM  HERE  ON  IN. 
If  A  LOCAL  VELOCITY  MAXIMUM  IS  LOCATEO  ThE  TmO-LAYER  MOOEL  IS 
APPL1E0  TO  EACH  Of  THE  JET  RE6I0N  AND  THE  TOTAL  BOUNDARY  LAYER 
IN  THE  CODING  THAT  FOLLOmS. 


THE  SEARCH  FOR  A  LOCAL  NALL  JET  VELOCITY  MAXIMUM  IS  CONDUCTED 
BELOm. 


254 


244 

270 

2S4 

244 


344 

310 


CONTINUE 
JUMP- | 

JBTRaltJUMP 
DO  240  JmJSTR.N. JUMP 
JJUMP«J-JUNP 
OU*UN t J ) -U" ( J JUMP  > 

OuDYmOU/ { V ( J)»V I j JUMP ) ) 

If (OU0YI2SO.2SQ.244 

CONTINUE 

MDGEN41 

SO  TO  74 

J0EL2>( J*JJUMP)/2. 

If (JOEL2-JOELI 1244.270.274 
JDlJ 1 • JOEL/* I 
0CLI2>V(JDEL2) 

U0CL2>UM( JDEL2 ) 


THE  FRICTION  VELOCITY  AT  THE  NALL  IS  CALCULATED. 

OUDVm* ( li,*UN(2)«S. »UM (1)*2.*UH(4) )/4./0Y(2) 

If (DUOYM)SOS. 340.110 
NR1TE (10T. 120) 

STOP 

UT  AU*8SRT ( VSC ( 1 ) *DUO Y  n ) 


THE  EDDY-VISCOSITY  PROFILE  IN  THE  INNER  LAYER  OF  THC  JET  IS 
CALCULATED  USING  VAN  PRIEST'S  FORMULA! (ON  FOR  THE  MIXING  LENGTH. 
MODIFICATIONS  TO  ACCOUNT  FOR  PRESSURE-GRAOIENT .  HEAT  ANO  MASS 
TRANSFER  EFFECTS  ARE  DUE  To  CEBECI. 


VTRB( 1)44.0 

V0uT4QELT2*XLAMB/XK 

00  320  JOUT |4| . J0EL2 

IF (T (JOUT| )• YOUT >324,324,330 

329  CONTINUE 
MRITE ( I0T.44) 

STOP 

330  JOuT*JOUTI-t 

IF (DPOX) 350. 340.350 
344  PPLUSaO.O 
GO  TO  340 

354  PPLUSa-VSC(N)*GC/RO(N)FUTAU/UTAU/UTAU«OPOX 
340  If (VnALIJ40.J79.344 


Ml TH  NO  MASS  TRANSFER  AT  THE  MALL 

370  XNaSBRT ( I I .4* VSC ( 1 )/VSC (N)*RO(N)/RONAL*PPLUS) 

00  ISO  J42.J0UT 
VYRY(J) 

OUOTa(uN(J*l)-UM(J-l))/(OT(J«t )«DY(JH 
TERM4|.-E*P(-uTAU*YY/Aa/VBC(J)«XN«S0RT (R0MAL/RO(J)H 
IBS  VTRB( J)>XK2*TT*YV*TERM*TERMaABS(0U0Y) 

GO  TO  410 


MlTH  MASS  TRANSFER  AT  THC  MALL 
340  VMPLSRVHAL/UTAU 

PRT|4R0(N)/VSC(N)/R0MAL/R0>AL*PPLUS/VHPLS 
PRT2*ll.8*MtMAL«V4PLS 
DO  444  J42.J0UT 
VYav ( J) 

OUOVR  (UM(  J*  I  )-UM(  J-t  ))/(DV(JM)*DV(J)) 

RNCajRNCN(TM( J)) 

PR7 JafXP ( PR  T2/XME  MJ  > 

INN  SORT  (XMCaJ*PRTia(l  .-PRT J)*PRT1) 

TCRMm|.*EXP(*UTAU*VV/AA/VSC(J>R>N*SBRT(ROMAL/RO(J))) 
444  VTRB ( J)aXM2#Y Y*YYaTEBR*TERMaABS(OUPY) 


THE  MAXIMUM  VALUE  Of  COOT  VISCOSITY  IN  THE  JET  IB  CALCULATED 
BY  INTCBPOLATING  BCTatEN  BRIO  POINTS  FOB  THC  VCLOCITY  6RA0UNT 
VHCRf  INNER  AND  OUTt*  LA 71 SB  INTERSECT. 


THE  E00T-VI4C041 7 Y  f»Of Ul  I N  THC  OUTER  REGION  OP  THE  TOTAL 
•OUNDARY  LAVES  IB  CALCULATED  USING  SPALDING  ANO  PATANMAB'B 
RICOMNENOATION  FOR  THE  HJX1N6  LENGTH  IN  AN  EBCUOIER  TnO-L»Y£R 
FORMULATION. 

YONlNBXLAMS/XKa (DELT 1-Dl-QMlN) »D l *D«IN 
VNIXaxLAMB* (DELTI-DI-OmIN) 

YNlXtaVMlXaVNlX 
00  424  JaJOLII.NNl 

OUOTa(UN(J«l)-UH(J-m/(DV(j4|)«OV(J)) 

420  VTR4(J)*YN1X2*AB3(0U0Y) 

VTR4(N)avTRB(NMl) 

VTRBOaVTRB ( JDL It) 

JOL la JOEL 1-1 
DO  454  Jal.JDLl 
JTOPaJOL 1 1-J 

IP (V(JT0P)-V0M1N)444. 434.434 
4)4  OUOYa (UN( JTOPv I )-UM( JTOP-1 ))/(DY(JT0P*l)*0V(JT0P)) 
VTRSNaVMIX2*4SS(0UDV) 

IF (VTRBN-VT 440)470.444 *440 
4S4  VTRB(JTOP)avTRBN 
VTROOaVTRBN 
454  CONTINUE 

HRITEI10T.40) 

STOP 


TME  NAXIMUM  VALUE  OF  EOOV  VISCOSITY  IN  THE  OUTER  REGION  OF  THE 
TOTAL  BOUNDARY  LAYER  IS  CALCULATED  IY  INTERPOLATING  BETnCCN 
GRID  POINTS  FOR  TME  MAXIMUM  VELOCITY  GRADIENT. 

444  J70Pi»JTOP#J 
JlaJTOP-2 
J2aJT0P«l 


JSaJTOPl* l 
J4BJ10P142 

OUDV ia(UM( J3)-UM( J 1 ))/(0Y(J3)*OV(J2)) 
OUOr2a(UN(j4)-UM(J2))/(DY(J4)vOr(J3i) 
0UDV3*(UM( J5)-UM( J3) )/(0Y(J5)*DY(J4)) 
DUDV4B(UM(J4)-UM(J4))/(0V(J4)*DT(J5)) 
OUOTNaGNINT  ( YOMJN. Y( J2) , Y I JS). T( J4) , Y( J5) . 
I  OUOV 1 . DUO Y2< DUDY J« DUDY4 ) 
VTMNaVMIX2*ABI(0UDYM) 


A  DIMPLE  COSINE  FAIRING  14  USED  TO  C THE  COOr-VltCOtl  Tr 
PROFILE  SCTHEEN  POINTS  OF  LOCAL  NAS I NUN  EODY  VISCOSITY  IN  EACH  OF 
THE  JET  REGION  AND  THE  OVERALL  40UNQARV  LAVER. 

YTOPIaVOMlN 
60  TO  444 
474  JTOPIBJTOPM 
VTNMSVTRBO 
YTOPiaT(JTOP|l 

•40  EDAVf a( VTMH.YTMJ ) /2. 

EDIFFaC  VTMH-VTMJ ) 72. 

VDIFFaVTOPl-VOUT 
DO  444  JaJOUT I . JTOP 
TVBY(JI-YQUT 
AR6B( VY/VD1FF-0.314PI 
444  VTR4(J)aiDAVEvfDIFF*BIN(4RG) 


INFORMATION  ABOUT  E ACM  OF  TME  JET  AND  TOTAL  BOUNDARY  LAVtR  IS 
PRINTED.  IP  THIS  OPTION  MAS  BEEN  SPECIFIED  BY  THE  USER. 

IF (JPRN)540.534.540 

544  MRITE (I0T.5I4 )0ELT2.UDEL2. YOUT . VTNJ 

*10  F0RNAT(/20X. '0ELT2  UDEL2  YOUT  VTMJ» 

I  /14X.BE13.4) 

MRITE (IOT.524)OELT1 .U0EL1.UTAU. VTNM, YT0P1 
520  FORMAT (/20X. 'OELT 1  UDCL1  UTAU  VTNN 1 . 

I  '  YTOPI'/IOX.BEIS.S) 


•  *•••■•••••••••••••  SOLVING  THE  NONE  NT  UH  lOUATION  ttMtimilttiMUMf 

STEP  2 


THE  DISTRIBUTION  OF  STREANUlSE  VELOCITY  IB  CALCULATED  BY  SOLVING 
A  SYSTEM  OF  LINEAR  ALGEBRAIC  F INIIC-OIFFIRC MCE  IGUATIONS  aHICM 
APPROXIMATE  THE  DIFFERENTIAL  EQUATION  FOR  THE  CONSERVATION  OF  N0« 
ENTUM  IN  AN  INCOMPRESSIBLE  TURBULENT  BOUNOARV  LAVER.  CENTRAL  DIF¬ 
FERENCING  IN  TME  Y-DIRECT ION  ANO  UPSTREAN  OIFFERf KING  IN  THE 
X-OIRICT ION  ARC  UiCO  TO  EXPRESS  PARTIAL  OERIVATIVEB. 


THE  HALL  BOUNOARV  C0N01TI0N  IS  BET.  I.I..  U  ■  I  It  TMt  MALL. 

534  A(l)a4. 

B(l )>l » 

C<t)a4. 

D(1)||. 


C  THC  FBCC-ITREAN  BOUNOARV  CONDITION  II  BET.  I.C..  U  ■  U I  IN  ThE 
C  FREE  STREAM, 

C 


Figure  A-1:  A  Documented  Listing  for  Program  Film  (Page  8) 
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A(N)a0.t 

•<N)ai.« 

C(N)a*,* 

DdOaUMU 


TH(  REMAINING  COEFFICIENTS  In  THC  TRXDIACONAILV-BAMDEO  IVIU*  Of 
EQUATION*  AHE  CALCULATED  MON  The  VISCOSITIES  CONFUTED  AQOVt  A*0 
THE  HQtT  RECENT  VELOCITY  PROFILES. 

VTQTNNVSCU)*vT«S(l) 

VTOTavSC(2)*vTRQ(2) 

00  5««  Jal.NNi 

P4R11*2.«vn(J)*DYiJ)-vTQTP«VT0TN 

A(J)aMftTl«yTOr«U..MftWU).PARfSm) 

B(J)A»S.«vTOt-).‘u"l.AS(J)*P**TA<J) 

C(J)b«RaRTI*VT0T*(a.«PART2(J)  *PART  l  ( J  )  ) 

OIJUUnlaSI  J)«PART5U  )»PARt*(  j) /«0(  J> 

VTOTMWOT 

5*0  vTOT«vTOTP 


C  The  SECOND  OE«I  »AI  I  ve  Of  THE  VELOCITY  f BOY  I L E  IB  HI  TO  ZERO 
C  AT  THE  BOUNDARIES  BETaEEN  FInE  anO  COURSE  GRIDS  II. E..  HATCHING 
C  SLOPES). 

C 

00  5SQ  Jal ,1 
GO  TO  (550. '■GO). 4 
550  HCCaNU 
CO  TO  570 
5*0  NCCaNCJ 
570  A(NCC)a|Q.O 
BINCC )«- 1 |.0 
C(NCC)a|.0 
DlNCC)«o.O 
500  CONTINUE 


SUBROUTINE  TRIOI  IS  CALLEO  to  SOLVE  THE  SYBTEN  OF  LINEAR  ALGEBRAIC 
EQUATIONS  "MICH  GOVERN  The  VELOCITY  RROflLE. 

CALL  TRIOI  (A.S.C.O.UN.N.AR.aq.aU) 


;aaaaaaaaaA«aaaaaaa  SOLVING  THE  CONTINUITY  EQUATION  . . . 


the  distribution  of  transverse  velocity  is  calculated  by  solving 
THE  CONTINUITY  Equation  nITh  central  differencing  in  tne  y-oir- 
ECTIQn  ANO  UPSTREAM  DIFFERENCING  IN  THE  X-OIRCCTION.  STARTING  AT 
THE  NALL. 

OiaaR.tQX 
VHinavNAL 
RRQN8RAD*R0II > 

DRflUNa}.*RRON«UH(i).a.«RAOl*ROI<l)auMi(i)«RAD2aROB(l)aUN2(I) 

00  500  J*2«  N 
RROPaRLOC ( J ) "NO  I J ) 

DRRURaJ..RNOP*OH(J).*..RLOCHJ)«R01CJ)%UHltJ)*RLOCa(JI*ROE(J)a 
l  UN2IJ) 

VN(J)aI./R«OR*(NROH«VN(J-I)-OY(J)/0XA*tORRUN*0RRURn 
ORRUHaORRUP 
500  RROHakROP 


RETURN 

END 


SUBROUTINE  FLNTO  (UN, vn, TM. TNJ , TH2, VSC , VTRB. ALN, ATRi.RO. PARTE, 

1  PART J, PART*. PARTY, RLOC. 4, S.C.D.Af.AQ, 4U.0Y.DX.N, NCI. NCI, THOLO. 

2  Y» PEL T I «  TYREE , FOUNT » TATN) 


the  purpose  of  this  subroutine  is  to  calculate  the  temperature 
PROFILE  throughout  The  BOUNOARV  layer  at  A  GIVEN  BTREANhIIC 
STATION.  This  IB  ACHItVEO  Br 

Al  CALCULATING  The  MOLECULAR  AND  EDDY  THfRHAL  CONDUCTIVIT¬ 
IES  FRON  THE  CORRESPONDING  MOLECULAR  ANO  EODT  VISCOSITIES 
AND  A  SUITABLE  PRANOTL-NUNBCR  DISTRIBUTION,  AND 

B)  SOLVING  A  SYSTEM  Of  LINEAR  ALGEBRAIC  f INI TE-OIFf ERENCl 
EQUATIONS  NHlCH  APPROXIMATE  THE  DIFFERENTIAL  EQUATION 
FOR  THE  CONSERVATION  OF  ENERGY  IN  AN  INCOMPRESSIBLE  TURB¬ 
ULENT  BOUNDARY  LAYER.  NEGLECTING  PRESSURE  MORR  ANO 
VISCOUS  DISSIPATION, 


OIHCNSION  U"tn ,VM(1 J.TNU ).TH1(I),TN2(| ),V8C(t ),VTRB(t ),ALN<1), 

I  ATRS(l),ROm.PART2(I),PARTS(l).PART«(l),PARTrm,RLOCU).A(i), 
i  sin,cm»ou),APci),AO(n,Aum.oYU).TMoioni.T(i) 
common  JN, J OT, IF | . ifi.ips.ifs.jp s. ifa.ift.ifs.ifn.ifio, zrecu. ircct 


NM|aN-| 
f NLlNaS.OSS I 

c  the  eddy  and  molecular  thermal  conductivities  are  calculated  from 

C  THC  EDDY  ANO  MOLECULAR  VISCOSITIES  ANO  A  SUITABLE  PRANPTL-MUNQer 

C  DISTRIBUTION. 


00  «0  Jat.N 
YOCLTaV ( J I/DCLT | 
|F(70llT-l. 0)10,20, 20 
IS  RRTR|a|.T5-t.25*V0CLT 


60  TO  If 
IS  PRTRQaS ,5C 
IS  ALH(J)avSC(J)/PRLAH 
AS  ATRSi J ) avTBSI J I/PRTRB 


THE  NALL  BOUNOARy  CONDITION  IS  SET  BCLOM.  FOR  THE  TIRE  BEING  THE 
■ALL  IS  CONSIDERED  TO  BE  ADIABATIC.  I.C..  DT/DY  a  S.  IF  OTHER 
THAN  ADIABATIC  CONDITIONS  IxIST  THEY  HILL  BE  ACCOUNTED  FOR  CSTER 
IN  SUBROUTINE  QAOO. 


AdlaS.S 
BID*-!  ,0 
CIIUI.O 
DIDaO.O 


C  THE  FRU-BTREAH  BOUNOARy  CONDITION  II  BET.  I.E.*  T  a  TE  IN  THE 

C  FREE  STREAM. 

C 

A(N)aQ,0 
BlNlal.Q 
C (N)aS.O 
OINIaTFREE 
C 
C 

C  THC  REMAINING  COEFFICIENTS  IN  THE  TRIOI AGON ALL Y-SANOCO  SYSTEM  OF 

C  EQUATIONS  AHE  CALCULATED  FROM  THE  THERMAL  CONDUCTIVITIES  COMPUTED 

C  ABOVE  AND  THE  MOST  RECENT  VELOCITY  PROFILES. 

C 

A10TN«ALN(I)*ATRR(|) 

AT0TaALM(2)*ATRB(l> 

oo  so  jmi.MH t 

ATOTPaALM(J*l)«ATRBIJ*l) 

PAHT|«2.-VM(J)*0V( JI-ATOTPyATOTN 
A(J>bPxrT|*AT0T«(«.-PAHT2(J) -PARTK J ) I 
B(J)b>S,*ATUT-I.*un(J)»PARTa(J) 

C ( J  laopART I* ATOT* (a , »PARTi(J)*PARTl(J) ) 

0( J)aUN(J (APART 7(J) 

ATOTHcATOT 
50  ATOTbaTOTP 

c 

c 

C  THE  SECOND  DERIVATIVE  OF  THE  TEMPERATURE  PROFILE  IS  SET  TO  IERO 
C  AT  THE  BOUNDARIES  BETaEEN  FINE  ANO  COURSE  CRIOS  (!.£.,  HATCHING 
C  SLOPES). 

C 

DO  SO  Jal. | 

GO  TO  1*0. 70). J 
SO  NCCBNCI 
CO  TO  SO 
TO  NCCaNCI 
SO  A INCC )a|0. 0 
SCNCC  J ■-! 1,0 
CCNCCjal.O 
0 (NCC )aO. 0 
SO  CONTINUE 
C 

c 

C  SUBROUTINE  OADO  19  CALLEO  TO  PROVIOC  OR  EVALUATE  ADDITIONAL  MEAT 

C  LOAOS  IN  TNE  ENERGY  BALANCE  AT  THE  N4U.  IF  ONALl  IB  ZERO  AFTER 

C  RETURNING  FROM  Q  A  DO  THEN  THE  HALL  IS  AOIASATIC  ANO  THE  PREVIOUS 

C  ASSUMPTION  APPLIES.  IF  SMALL  IS  NOT  EERO  THEN  0(1)  IS  ALTERED 
C  IN  ACCORDANCE  NITH  Q  a  K  *  01 /OV.  SINCE  MANY  OF  THESE  HEAT  LOAOS 

C  DEPEND  ON  THE  NALL  TEMPERATURE  AN  ITERATION  IS  PERFORHEO  TO  ACM- 

C  UVE  CONSISTENCY. 

C 

OMALLaO.O 

CALL  DADO  (TH.QbaLL.N. KOUNT  >  T  A  TH ) 

IF (QNALL)tiO. 100,110 
ISO  CALL  TRIOI  (A.B.C.D.TN.N.AP.AO, AU) 

RETURN 

110  DO  150  JJai.10 

0maQaALL*DV(2)/THC0N(TN||)) 

00  120  J»l,M 
120  TNOLO(J)aTNlJ) 

CALL  TRIDI  (A. S.C.O.Tm.n. AP.AQ.AU) 

FNRMTaO.O 
00  ISO  Jal.N 

ISO  FNRNTbFNRNTyASSITm ( J )-TNOLO< J) )/TN ( J) 

FNRMTbFNRNT/N 
IF(FNRNT-TNLIM) 1*0. 1*0,  too 
180  CALL  DADD  (TN.QmALL. N, KOUNT, TATN) 

150  CONTINUE 


US  RETURN 
ENO 


SUBROUTINE  FTIOY  (un,uni,Tn,tn|,vn. VN|, y.noim.n) 


THE  PURPOSE  OF  This  SUBROUTINE  IS  TO  STORE  INFORMATION  ABOUT  THE 
OUTFLON  BOUNOARY  CONDITIONS  AFTER  TNE  FLOM  FIELO  MAS  BEEN  CQMP. 
UTID.  THIS  INFORMATION  IS  STOREO  IN  OISR  FILES  FOB  FUTURE  RtftR- 


OlHtNBION  UH(l),UNl(|),TN(l),TNl(|),VN(|),VNim.Y(|) 

CONNON  lN,I0T,lF|,lF2,IFS.lFA,IF5.IF*,IFT.|FS.lF«.IFtS.IRCCU»IR«CT 
■RltECIf >• l)(UH(j),jai,NOlN) 

■RIH(tF«M)(UN|(j),Jat,NOIN) 

NRITKIF5'  l)(VN(j).jat,NDlN) 

■RIT((|FSM)lVHi(j),j*|.NOlN) 

■RITECIFT‘IHTN<j),ja|,NOlN) 

■RlTtltFB'l)(TN|ij)(ja|,NOIN) 

aRITE(IFRMMYU),Jai,NDIN) 

■RlttClFIS'DN 


RETURN 

CNO 


Figure  A-i: 
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. .  PL  INK 

plxnk  . . . . . 


SUSRQUT  INC  FUNK  (Y,V0L0*I*X0L0.N,M0L0.N2.MF1LE) 


THfc  PURPOSE  OF  ?H| »  SUBROUTINE  It  TO  CONFUTE  AN  INFLOm  BOUNOART 
CONOITION  F ON  THE  PRESENT  NUN  BAUD  OH  THE  OUTFLOW  BOUNOART  COHO- 
1 T ION  FROM  THE  LAST  RUN  TO  BE  EXECUTED.  Twit  IS  ACHIEVED  BT 

A)  REAOINO  IN  AN  OUTFLOW  BOUNOART  PROFILE.  HOLD  AS  A  FUNC¬ 
TION  OF  TOLD.  STORED  In  a  DISK  FILE  AT  THE  CONCLUSION  OF 
THE  LAST  RUN  TO  BE  E1ECUTEO.  AND 

•I  INTERPOLATING  BE TNfEN  «»!0  POINTS  IN  THE  OUTFLOW  HIOflLt 
TO  ARRIVE  AT  AN  INFLOW  PROFILE.  1  AS  A  FUNCTION  OF  T. 
SUITABLE  FOR  THE  PRESENT  FLOW  FIELD  CALCULATIONS. 


dimension  vm.voLom.im.xoLOii) 


THE  OUTFLOW  PROFILE  FROM  THE  LAST  EXECUTION  IS  RE  AO  IN  BELOW. 


DATA  SHPwC II). SHPwC (2)  * ShPnC IS) « SHPwC (A ), SHPwC (S ). SHPwC (SI , 
ItHPwC(7).SHPwC(t).tNPwC(*).SHPMC(IS>.SHPwC(lI> 

E/.OOO. .0AS» .OBI . .OSS. .OSS* .BBS* .BBS, .S7I..B7B..SSI. .SS7/ 


•0L?2*A.7»1E-I1 

I H«S 71.$ 

TCalATN 

TWATN(l) 

TCwTM(N) 

Ehri.s 

ecai.o 

IWRS.BS 

EGRO.OS 

THRwTHwTHwTHATH 

TCRwTC*TC*TCwTC 

TM«wTWwTW*?NwTw 

T6«aTSwTG*T6wT6 

B»ALL»OOkT2*(-tH*EM*tMPHW(KOUNT)*(THA-TMA) 

1  ♦Cw*EC»SHPwC (KOUNT )• ( TWA-TCA) 

2  -tC«tw*(TCA-Tw*)) 


RETURN 

(NO 


REAOIMF ILE 1 1 ) (XOLO ( J) , Jal , NOLO) 


INTERPOLATION  BETWEEN  GRID  POINTS  OF  THE  OUTFLOW  PROFILE  TO 
ARRIVE  AT  A  SUITABLE  INFLOW  PROFILE  IS  ACCOMPLISHED  SELOW. 

Kiwi 

NIIIMTI 

»tN2>wXOL0<!> 

00  *0  JwNJl.N 
DO  10  KwKl.wOLO 
IF(TOLO(K)-TUmO.  10.40 
10  CONTINUE 


IF  THE  REOUIREO  INFLOW  GRID  IS  OF  GREATER  01NEN8I0N  THAN  THE 
AVAILABLE  OUTFLOW  GRXO.  THEN  THf  VALUE  AT  ANY  POINT  IN  THE  INFLOW 
GRID  FOR  WHICH  THERE  IS  NO  CORRESPONDING  POINT  IN  THE  OUTFLOW 
GRID  WILL  BE  SET  TO  THAT  OF  THE  LAST  POINT  IN  THE  OUTFLOW  GRIO. 

£0  CO  $0  JJ«J.N 

jo  x ( j J)wxolo<nolD) 

RETURN 


IF  IHIB  IS  NOT  THE  CASE  THEN  AN  INTERPOLATION  IS  PERF0RNE0 

usin«  *  third-order  polynomial  curve  fit  to  values  at  neighbour¬ 
ing  GRID  POINTS. 

«0  K1WK-2 

N2WK-1 
K  JwH 
K«WR«I 

IF (K|.|)S9.»0,»0 
$B  Kiwi 
•  2*2 
m»i 

K«W« 

GO  TO  BO 

AO  IF (HJ-NQLO)BO. 70.70 
70  KlwNOLO-S 
K2WN0L0-2 
KjwNOLO-t 
kawnolo 

00  XUlAGNlNT  IT  (J  )  .  TQLO  (M  1 ,  Y0L0(K2>  .  VOLOCK  J)  .  TOLO(BA)  , 

I  XOLO (w I ).XOLO(k2I»  XOLO(K J J  »  XOLO (K A) I 
•0  CONTINUE 


RETURN 

END 


>0 


SUBROUTINE  GAOO  (Tn, SmALL.N, MOUNT, TATH) 


THE  PURPOSE  OF  THIS  SUBROUTINE  18  TO  AL10N  THE  USER  THE  OPPORTUN¬ 
ITY  TO  INCLUOE  EXTRA  TERNS  IN  THE  HEAT  BALANCE  AT  THE  NALL.  COM¬ 
MON  EXAMPLES  ARE  RADIATIVE  HEAT  TRANSFER  AMO  CONVECTION  ON  THE 
OUTIIOC  OF  THE  MALL.  IN  ANT  EVENT.  THE  TERM  BRAIL  MUST  BE  COMPUTCO 

so  that  it  is  the  heat  taren  prom  the  mall  in  units  of 

•TU'SEC-FT-M. 

as  it  stanos  this  subroutine  is  set  up  to  incluoc 

A)  RA01ATIVE  HEAT  TRANSFER  FROH  k  HOT  6AS  TO  THE  MALL. 

S)  RADIATIVE  HEAT  TRANSFER  F«OR  A  HOT  SOOT  TO  THE  HALL. 

A  NO 

Cl  RAOUTIVE  HEAT  TRANSFER  FROM  THE  MALL  TO  A  COLO  SOOT. 

THE  TEMPERATURES  OP  THE  HALL*  COLO  SOOT.  HOT  SOOT  ANO  HOT  SAS 
ARE  TN.  TC.  Th  ANO  T6.  RESPECTIVELY.  THE  ENISSIVlTIES  ARC  CM. 

EC.  EM  ANO  EG.  RESPECT  I VCLT.  THE  SHAPE  FACTOR  SCTnCCN  THE  COLO 
SOOT  and  THE  WALL  IS  SHPwC.  THAT  BETWEEN  THE  HOT  BOOT  ANO  TNC 
WALL  IS  SHPH*.  THAT  BETWEEN  THE  GAS  ANO  THf  WALL  IS  UNIT T .  FOR 
THE  PRESENT  CASE  RADIATIVE  Wf AT  TRANSFER  SC TwECN  NEIGHBOURING 
PORTIONS  OF  THE  WALL  IS  NC6LECTC0. 


COMMON  IN.  IOT.  IF  I.IF2.IFS.IM.1FS.  IF*.  IF7.iFt.tr*,  IF  I*.  INCCU.IRtCT 
01  HE  wS I  Oh  1M(|),SHPHW(2SI»SHPWC(2B1 

OAT A  SMPHMC | ),SMPHM(2),SHPMw(|) ,8MPNN(A),8HPMW(S) ,SHPHM(*), 
t  SHPHW (71. SHPHW ( S 1 . ShPHW ( * 1 . SHPHW (101. SHPHW (ID 
2/.90B..AA). .A SB. . J*S. .)**. .JA2« . JIB. .2*1. .271 ,.2$l, .212/ 


. . .  BUNT  . . . 

c  •«■■••*••••••••■  •••••••«••*••••  BLlNT  . . . 

. . .  BLlNT  awwwwwwwa awawawwwaa aa aa a a aaaaaaaa 

c 

c 

SUBROUTINE  BUNT  (NC.OT.  T.RAOO.UH.ROC.OISP.  WOW.  H.  COORD.  ALPHA. 

1  SHIFT) 

C 

c 

C  THE  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  CALCULATE  THE  DISPLACEMENT 
C  ANO  HONCNTUM  DEFICIT  THICKNESSES  FOR  AN  ARSITRART  BOUNOART  LATER 
C  BT  NUMERICALLY  INTEGRATING  ITS  VELOCITY  PROFILE.  THESE  PARAHCTCRS 
C  ARE  USEO  TO  COHPUTE  THE  VELOCITY  PROFILE  SHAPE  FACTOR. 

C 

C 

integer  cooro 

real  NON, INTO. iNTH 

DIMENSION  UM( | ) .ROE (l).T(l)«DY(|).NC(t) 

COMMON  IN. IOT. IF | . IF*, IF1. IF*. IF*. IF*. IFF. |FS. IF*. IFJS. IRECU. IREC7 
C 
C 

C  INITIALIZATION  SEGMENT 

C 

RAOaRAOO-SMlF  T *COS( ALPHA) 

COR AOAC OS (ALPHA) /RAO 
FACTA). 

C 

C  THE  NUHSIR  OF  GRJO  ZONES  IN  THE  BOUNOART  LATER.  JCC1.  IS  DETER- 

C  NINCO  ST  EXAMINING  ARRAY  NC. 

C 

III«I 

00  20  Ja)t* 

IF(NC(J))SO. 10*10 
10  JEEAJ 
20  CONTINUE 
10  JEE1AJEE-1 
C 

JOEL WNC (Jit) 

JtaNC(l) 

ROEEwROE (JOEL) 

UEEAUN(JQEL) 

ROCUEaAOCEauEE 

TOTOao.O 

TQTNAO.O 


INTEGRATION  TO  FINO  THE  DISPLACEMENT  ANO  MOMENTUM  DEFICIT 
THICKNESSES  IS  DONE  BELOW.  EACH  GRID  2QN|  IS  INTEGRATED  SEPARATE¬ 
LY  AS  FOLLOWS.  IF  AN  EVEN  NUMBER  OF  INTERVALS  IS  PRESENT  IN  A  GRID 
20NC  SIMPSON'S  RULE  IS  USEO  TO  1NTE6RATC  FROM  1STRT  TO  ISTP.  IF  AN 
OOP  NUMBER  OF  INTERVALS  IS  PRESENT  SIMPSON'S  RULE  IS  USED  TO  INT¬ 
EGRATE  FROM  1STRT  TU  IS).  THE  REMAINING  INTERVAL  IB  INTEGRATED  BT 
THE  TRAPA20I0  RULE. 


00  210  JSECal.JEEl 
lSTRTANC(JSEC) 

ISTPANC(JSEC«I) 

OTTAOT(ISTP) 

ISTialSTRT*! 

IS!  wISTP-l 

ROUaROEdSTNT)wUM(lSTRT) 

INTOaROEUC-MOU 

INTMaR0U*(UEE-UM(IS1RT)) 

IF  THE  COORDINATE  SYSTEM  IS  AX1SYMMETRIC  (COORO  POSITIVE)  A 
GEOMETRIC  FACTOR  It  1NCLU0ED  IN  THE  INTEGRATION.  THIS  FACTOR  IS 
UNITY  FUR  PLANE  FLOMS. 

IF (COORO) SB* SS. AO 

COORO  FOSITIVE 


c 

c 

c 


••  f TATE  IS TRY l-SHIFT 

fact  ai ,-ttaCorao 

1nTOa1nTO*F*CT 

INTMaXNTMwFALT 

COORO  NOT  POSITIVE 

SS  IP (1STP-ISTRT-I )BO.B0.7O 
*•  JLlMalSTl 
CO  TO  IDS 


THE  INTEGRATION  LIMIT  FOR  A  PARTICULAR  GRID  2 ONE  IS  SET  ST  DETER¬ 
MINING  WHETHER  AN  000  OR  EVEN  NUMBER  OF  INTERVALS  IS  PRESENT, 


7t  JINOa-l 

INOIIAISTP-ISTRT 

WUMBIH0EX-2X1N0EI/2) 
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STP  507 


IF(NUN)9B,9S,B0 
•0  JLlHalSl 
«0  TO  ISS 
90  JllNalSTP 
C 
c 

C  TNI  INTEGRATION  19  PERFORMED  FOR  A  PARI  ICUL AA  CRIO  ZONE  BELOa. 

c 

|»0  00  1*0  JaXSTl.JLlM 

If  (J-JL1NM20.119.11S 
110  NULTal 

«0  TO  lit 
120  JINOa-JJNO 
NULTaJ.JIND 
110  ROUaR0E(Jl-UH(J) 
terma»roeue-rou 
TERNBaROU* <U£E-UM( J ) ) 

If  TCOOROmO, 190.140 

1*0  T»«T(J)-9MlfT 

FACTat.-VV-CORAO 
ISO  lNTOaINTD.FACT-TERMA.NULT 
INTHalNTH.F  ACT-TERNB-MULT 
ISO  CONTINUE 

ir<I9TP-I8TflT-I)17O,l70.1S0 
170  1NID«1NT0/2.>0TT 
INTMalMTN/2..0YY 

CO  TO  220 

ISO  INIO-INTO-OVY/I. 

INTNaJNTN-DVV/1. 

C 

C  IN  TNE  EVENT  THAT  THE  NUMBER  OF  INTEGRATION  INTERVALS  19  000  THE 
C  INTERVAL  LEFT  OVER  f RON  THE  INTEGRATION  IT  SIMPSON'S  RULE  19  INT- 
C  EGRATEO  By  THE  TRARAZOIO  RULE  BElOn. 

C 

IFCNUM1220.220.100 
190  MOLOAMTERHAAFACT 
HOLOBbTERNB-F ACT 
ROUmROE IISTPJ-UH(ISTP) 

TERmabNOEUC-ROU 
TERMa*R0U-(UEE-U«(I8TP) J 
If (COOROI2IO. 210*200 
200  YVavU*TR>-9MlFT 
FACT«1.-TV*C0RA0 
TERMAaTERHA.FACT 
TERhBmTERHB«F ACT 

210  1 NTO* INTO* (HOLD AaTENHA 1/2. *DTT 
INTNalNTN«(H0L0B«TERNBl/2.*DVV 
220  TOTOaTOTO*lNTO 
TOThbTOTm.Intn 
210  CONTINUE 

c 

C 

C  THE  INTEGRATED  AREAS  ARE  MULTIPLIED  BT  APPROPRIATE  FACTORS  BELON. 

C  IN  THE  CASE  OF  PLANE  FLON  THESE  RESULTS  ARE  THE  DISPLACEMENT  AND 

C  MOMENTUM  DEFICIT  THICKNESSES,  RESPECTIVELY.  IN  THE  CASE  OF  AIItVM- 

C  METRIC  FLOnS  THESE  RESULTS  ARE  THE  CONSTANT  TERMS  IN  QUADRATIC 

C  EQUATIONS  NH1CH  MUST  BE  SOLVED  FOR  THE  DESIRED  THICKNESSES. 

C 

TOTDaTOTO/ROEUE 

TOTNbTOTh/ROEuE/UCE 

c 

IF (COORD 1290, 2AS, 2S0 
C 

C  COORD  NOT  POSITIVE 

C 

2*0  OlSPaTOTO 
nONbTOTm 

GO  TO  100 
C 

C  COORD  POSITIVE 

C 

2S0  AAa-C0RA0/2. 

RADICal.*«.*AA«TOTD 
IF (RAOIC)2bO. 200,200 
200  NR  I TE ( IOT.270 ) 

270  FORMAT (/// 10*. ' •••  FATAL  ERROR  IN  SUBROUTINE  BLINT.'/I%X, 

I  'NEGATIVE  RADICAL. '/ISA, 'JOB  ABORTED.') 

STOP 

200  DISPa(-l  ..SORT  (RADIO) /2,/AA 
RAOlCal .♦*.** A* TOTH 
IF ( R ADI C 1200, 290,290 
290  HONa(-l . *9QRT (RA0IC))/2./AA 
C 

C  THE  VELOCITY  PROFILE  SHAPE  FACTOR  IS  CONPUTEO  BELON. 

C 

100  MSOiSP/NON 

c 

c 

RETURN 

END 


SUBROUTINE  NLAP  (A,S,C,0,I2) 


BuEBBat . 

00  00  JTINE*I *  10 
GUEBBacuCBBat.l 
OiaGUEBBaO.I 
liaGUEBS 


UP  TO  TfcfNTT  nEbIQn-PAPHION  ITERATIONS  AW  PER"ITTED  FOR  EACH 
GUESS. 

DO  20  Ja|,20 

lPLUtaii.pl 

ININali-DR 
FPLUSaf (KPLUS1 
FAvEaF(ii) 

FMlNaF ( KNINl 

X2*X 1 *F  A VC -2. *DX/ (FPLUS-FhIh) 

IF  IABSU2-I1 1/12-0.0001 110,  10,  10 

10  Xias2 
20  CONTINUE 
GO  TO  00 

SO  IF (12)00,00,90 
•0  IF (A» *2 100,00, SO 
SO  RETURN 


NRITE  HOT,  TO) 

70  FORMAT!///) OX, '***  FATAL  ERROR  IN  OUSROUTIW  MLAM.'/lSX, 
1  'CONVERGENCE  CANNOT  BE  ACHIEVED. '/1SX, 'JOB  ABORTED.') 


STOP 

END 


SUBROUTINE  TRIO!  (A,B,C.O, X.N.AP, AO. AU) 

THE  PURPOSE  OF  THIS  SUBROUTINE  IB  TO  SOLVE  A  SYSTEM  OF  LINEAR 
ALGEBRAIC  EQUATIONS  NHICH  IS  IN  TR I D I  AGON ALL T -SANDED  FORN, 

DIMENSION  A(l),B(l),C(t),D(l),X(|) , API 1).AQ(|),AU(I) 


JAla* 

JBiaN-| 

JAaJAl-i 
JBaJSl.t 
AP( JA)aS( JA) 

AQ(JA)a.C(JA)/SUA) 

00  10  tajAl.JBl 

API I ) BA II)*AO(I-l)*B(t) 

10  AQlI)a-cm/AP(I) 

AP(JB)aA(JB)*AQ(JBl 1*B(JB) 
AU(JA)aD(JA)/IMJA) 

00  20  lajAl.JB 

20  AUll>alOU)-A(I)aAU(l-l))/AP(I) 
X(JB)8AU( Jt> 

00  10  XIBJAI.JB 
IaJB-II*JA 

10  X(n>AQU)«XU«l>»AU(l) 


RETURN 

END 


. . . . .  Cn l NT  •••••••••••••••aaaaaaaaaaaaaaaaa 

C*......** ......a...... BN1NT  •*••••• ■ •• • *• •••••• •• ..•••• a ••• • 

CNINT 

c 

c 

FUNCTION  GNINT  (XINT,XI.I2.|],X«,F1,F2.FS,F«) 

C 

C 

C  THE  PURPOSE  OF  THIS  FUNCTION  IS  TO  FIT  A  THIRp-OROCR  POLTNONIAL 
C  TO  THE  DATA  POINTS  (XI, FI),  (K2,F2),  1*1. FI)  ANO  (XA.FA J  AND  TO 

C  RETURN  THE  VALUE  OF  THE  FUNCTION,  GNINT.  FOR  AN  ARSUNENT  Of  *!Nf, 

C 

c 

C  THE  COEFFICIENTS  OF  THE  POLTNONIAL  ARE  CALCULATEO  BELOm. 

C 

A I BF 1 

A2»(F2-A1)/(X2-XI) 

Ala(F)-Al-A2a(ll-ll))/(KS-Kl)/(KJ-X2) 

AAB(F*»A1»A2* (I 4- XI )-Al*(XSvXl)*(Xa-X2) )/(*«•* 1 )/(X«-X2)/(RA-K)l 

c 

C 

C  THE  FUNCTION  IS  EVALUATED  FOR  AN  ARGUMENT  OF  X1NT  BELON. 

C 

GNINTaA|«A2*(XlNT-Ki)«Al*(lINT-Xn*(XlNT-K2)*AA*(XlMT-Xl)* 

I  (XINT-X2)«(XINT-IS) 


RETURN 

CMO 


THE  PURPOSE  OF  This  SUBROUTINE  IS  TO  SOLVE  THE  EOUATION 
A/I  a  B  •  LOGIC**)  •  0  fO*  X  BMERE  A.6.C  »N0  0  ARE  KNOMN  QUANT¬ 
ITIES  SUPPLIED  TO  THE  SUBROUTINE  IN  THE  ARGUMENT  LIST.  AN  INIT¬ 
IAL  GUESS  AT  THE  ROOT  IS  HAOE  ANO  TaENTV  NEnTON-RAPHSON  ITERATIONS 
ARE  PERFORNEO.  IF  CONVERGENCE  19  NOT  ACHlEVEO  THE  INITIAL  GUESS 
IS  MADE  SMALLER  ANO  THE  PROCEDURE  REPEATED.  AFTER  TEN  ATTEMPTS  AT 
ALTERING  TNE  INITIAL  GUESS  HAVE  BEEN  MAOC  ANO  CONVERGENCE  NAB  NOT 
BEEN  ACHlEVEO  THE  PROCESS  IS  TCRNINATEO. 


COMMON  IN, I0T.IFt,IF2,IFl, IFA.IFS.lfO»IF7,|FS, IF9.IFI0, IRECU, IRECT 
F  ( X)aA/X-B-ALOG(C** )-0 


THE  GUESS  IS  ALTERED  UP  TO  TEN  TIMES. 


. . ME . . 

. . . . .  . . . 

. . . . .  hen  . . . 


REAL  FUNCTION  N|N(T) 

C  THE  PURPOSE  OF  THIS  FUNCTION  IS  TO  CALCULATE  THE  DYNAMIC 
C  VISCOSITY  OF  AIR,  HEM  (LBH/SEC-FT >,  NHICH  CORRESPONDS  TO  IME 
C  TEMPERATURE,  T  (<R),  SUPPLIED  AS  THE  ARGUMENT.  THIS  IS  DONE  BV 

C  LINEAR  INTERPOLATION  IN  A  TABLE  OF  TEMPERATURES  AND  COBRCBP- 

C  ONDING  VISCOSITIES. 
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c 

c 

c 

c 


c 

c 


OlMCMION  XNCKIIJ 

COMMON  IN, IOT. IF  1. IF2, IF],  ]F4<lF4.IF*,lF7,|Ft,lF4,lF||,  IRfCU.  IBECT 
M»t  !■*«<  I  ),  INC.  ( J),  IHOm.  INC.  (A),  INf*<1).  **€■<*»,  !***(?>. 

1  *rt»(4), !«■(»•), 

2/1.1  lt*4«  1  I  .««.|,  I  .4IE-4,  UK-1. 1  1 41*1* 

1 


4  CHICK  U  NAM  ?Q  (NlUftf  THAT  THC  SUPPLIED  TCNPCRATuRC  MUI 
hITNIN  THC  OANOC  444  -  1444  •  *.  IP  THU  COMOXTION  XI  no?  NCT  an 
ERROR  HttAtC  10  PRINTIO  A NO  THC  JOO  It  AOQKTCD. 

IP (f-444. 120. 14.14 
14  If (1-1*44. 1*4. *4. 2t 
24  aRITKlOT.St) 

14  POOMAf  (// /14I. < •••  PATAL  HIM  IN  TO  NCT  I  ON  NC*.  * /ltR,  <  THf  tUPPUE 
10  TCNPCRATURC  10  OUT  OP  RANtC. '/111. • J(tf  AtORTCO.*) 

•TOP 


INC  LJMAR  INTERPOLATION  24  OONC  0*10*. 

44  TT*f-4*0. 

NTatT/IOt. 

MfT*MT*t44 

NCN«>NC«<HOlNl4(TI*Hm/144.NilNCN(N01N*l)»l*CN|NOlN)) 


RETURN 

(NO 


c 

c 


ItMRQUUNC  OTPT*  (N.V.VCCTR) 


TMC  PUMPOM  OP  1M10  OoOOOUT JN*  10  TO  POINT  N  ClIMCNTB  OP  OOP* T 
•ICTR,  NMICH  ARC  PUNCTIOMO  OP  V'  TIN  TO  A  LIM. 


BIN*  Ml  ON  V(I).VCCTR(I) 

COMMON  |N. |0I .IP  I -Ifl.IPl.IF*. 1P4*  JP4. 1P7, IP4, tft,IP|4, IRCCU, IRCCT 


NOITKIOT.lt) 

It  POOMATf 14) 

JM1 

NUMNN/14.P1.44I 
00  ft  JNI.NUM 
JC*JR»« 

1PCJC-M114.I4.24 
It  JC*N 

It  VVMTCJO)*!!. 

■01 T| CIOT.At) TV. (VECTR(J*),JA*J4.JC ) 
4t  POONATCII.PT. 4,*  •  <.14112.4) 

JOOOMt 
tt  CONTIMUC 


OCTUON 
I  NO 


Cl 

c 


c 

c 

c 

c 


c 

c 


THC ON  < 
TK  ON  < 
THC ON  < 


P UNCTION  INCON(T) 


ThC  PUOPOU  OP  THU  P UNCTION  It  TO  CALCULATE  THC  THCNNAL  CONO- 
UCTIVITT  OP  AIO.  THC  ON  (|f  U/4CC-F  T- •  4) .  MICK  C04NC4P0NO4  TO  THC 
UHPfOAIUNt.  1  t'«).  tUPHUD  At  tut  AOtUMCNt .  THU  If  OQMt  l< 
LlHAO  INTCOPOiATION  IN  A  TAOC*  OP  TCNHOATuOCI  ANO  C0OOC4PONOINO 
THERMAL  CONOUCT IVlTIEt. 


OlNCNtlQN  CCII) 

COHNON  IN.  IOT.  |P|. (P2.IP1.  IP4. IPO.lPt. IPT.lPt* IP4.IP14.  IOCCU.  IHCT 
OAT*  C(l)*C<2)«CCS).C(4).CI9).CCt)*CIT)iXCt).C(4).CIlt).CCIl) 

1  /5.464C -4,4. 27Rf *4.t«tSSf— t,4.StlC-4.f .— ttC-t.t.RX 7C-4, 4. 444E-4. 

2  T.444C-N. 7. OtNt-t. t.*l 71-4.4.4*11-4/ 


A  CHCCK  It  NAM  TO  CNtUOt  THAT  THf  SUPPLIED  TlHPfOATUNt  PALLS 
■IfHlN  THC  OANOC  444  •  1444  <0.  IP  TNU  C0N01TI0N  U  NOT  NCT  AN 
(0000  NCMAtC  U  POINTIO  ANO  THC  JOO  U  AOOOTCD. 


IPIT-440. >24.14.14 
14  IMT-1444. >44.44,24. 

24  »OITKtO?.14> 

SO  P0ON4TC///I4K. FATAL  COOOO  IN  PUNCT10N  THCON. </|«R. 

1  <THC  4UPPL1C0  UNHOATUNC  U  OUT  OP  »ANtt.  •  /It*.  •  JOt  AOOOTCO.*) 
•  TOP 


TH*  L INCAN  INTERPOLATION  14  OONC  MLOM. 

44  TTmT-4%*. 

NTPTT/Itt. 

NTTNNT*l4t 

N0JM4MT+! 

THCONNC(MOIN)»(TT-NTT)/ltt.*(C(MOlH«l)-C(NOIN)) 


OCTUON 
I  NO 


tut* OUT  INC  OTPT 1  (02.0I.N.VCCT*) 


C  THf  PUOPOtC  OP  THU  SUOOOvT INC  It  TO  POINT  M  ELEMENTS  OP  A004T 
C  VCCTO.  NMICH  AR|  PUNCTI0N4  OP  I  (02  ANO  Ol).  tl>  TO  4  LlHt. 

C 

c 

OIMCNtlOM  VCCTOIt) 

COMMON  IN. IOT* IP  1 . 1P2. IPS. IP4. IP*. IP*. IPT. IPt. IP*. IP  It. IOCCU. IOCCT 


■OITKI0T.I4) 

|4  P0ON4T C |l) 

V*M*f  f. 

JO*  I 

NUMN/44I.44I 
00  44  JNI.NUM 
JClJlTt 

IP  CJC-N) It. St. It 
It  JC*N 

St  aRITKI0T,44)>,  (vtCTR(JA),  JAaJt,  JO 
4t  P0ON4TC  lta.Pt.l.ll***f*ll.4CKI«.T.|l)) 
lAKll.itl 
Jt»Jt*4 
4t  CONTI** 


OCTUON 

100 


JOB  CONTROL  LANGUAGE  FOR  CREATING  FILES 


//CO. FT)  If  041  00  D0NAmE*L 157*21 .HtOZ.UVEL, U*I TalllO- I *  VOL*tCR*aR0C4*« 
P/  0 1 4P* (■£■, C ATLC, OElF Tt ) .8PAC£«< 4600. (40.0041), 

//  DCtf*(R£CFN*F.t»LKSIZE*4O0O) 

J1ZDJ  TiJgflfli  i>n  BIIUNUH  I3LU21  -may-fraa. nm  t.H^t f  (  wnf  ^ 4 

PP  DUP*(HEn, CaTlG, DELETE ),SP*CC*(4004.  (44.044)), 

//  OCta(*£CPHBF,0LK4IZC*4OOO) 

//60.PI1 SPOOI  00  D4*ANt»L14742l. NCOS. UUNI. UNI TalIlo-l.vOLaitO«MROC44. 
PP  0 I tPaCNtH.CATLC.OCLCTC). SPACE ■(4044. (1.400)), 

//  UCt«(*ECPH«F,ftLKtIUat404> 

//60.PT14P40!  00  09*AHf.*L35r«2l .NE42.UUH2.UN1T*S]10-I . V0L*SCRa«R0C*4, 
//  OISP* (nEn.C ATLS.OClETC ) , SPACE ■(4040, (1,400)), 

//  DCB*(NttFw«F,tLK9lZ£*9660) 

//60.PTI47001  00  09*amE*L]57«2I.nC02.*VHI(UNIT*SS14-1.v0L*UR*bR0C*4, 
PP  0ISP>(NEN,CA7Lfi,O*cE7£).tPAC*«(4O44.(|,«44l). 

//  OCta(RtCPNBF.RLK4IZE*t404> 

//60.F T 1*7401  JO  04N*NCaLSS7A2I.NE42.VVN2,UNiraSSl0-l,v0LatCRaaR0C44. 
"  OItPB(NC>,CATL6,0eLCTE).4PACEa(44»4.(l,440>). 

//  OCB«(»CCPN«F,4LK4IZE*4000) 

//40.PTI  7F 441  00  OSNANEaL]4742I.HK02.T7Nl,UNlTBm4-l,VOLMERaaROC44. 
PP  0ItPa(Ni*.CATLC,OELETC).SPACEa(4O4O.(l,444)>. 

//  OC4a(RECFNat.RLK4IZE>tO04> 

//CO.PTItf 441  00  D4NAHlBLSV7«2l.HE42.TTH2.UNlTaS]S0-l,VOLBtER*NR0C44. 
P/  OISPXNC*. CATLG,  DELETE), SPACE*  (4000.(1, 0001). 

PP  OCt*(*t CF  H*F , BLKSI ZE*4400) 

//CO. FT I4P001  00  0SnanE*LS57*21  .<*£42,  V  VV.uNl  T*)SS4-1 , V0L*4tR*»RDCA*. 
PP  0I4P*(NE-,CATL6.MLET€).tPACt*(t404. 0,4441). 

//  0C4*(*ECFh*F , BLKBI ZE*tOOO) 

/ /40.FT24F  40 1  00  0S*AHt>LS47421 .nC02,PA*A,UNIT* IISO-l , V0L*tER*aR0C44. 
PP  0  ISP* (HI ■iCATLt.OELETC) .SPACE* (4444. (1.466) )» 

//  0CB*(NECFH*F,BLKtIZE*t«06) 


JOB  CONTROL  LANGUAGE  FOR  REFERENCING 
EXISTING  FILES. 

//60.FTOF44I  DO  0tNANC«LS4742t .NCtl.UTEC.OItPaOCO 
//60.FT12F461  00  OtNAHC*L  147421  .NE02. TCNP.DUP*010 
P/40.FT ISf 641  00  OtM*NC«LS47421.«C62.UUNl,OItP*OLO 
//C0.FT14F00I  00  OfNANC«LIi7421.NCt2.UUN2,PUP*OL0 
//CO.FTliPOOl  00  0iNANC«LSi762I.NE6I.VVN|,pUP*0L0 
//t0.PT|4P641  00  OtNANE*LS4742I.NCt2.VVM2.01tP*OLO 
//C0.FT17F461  00  D|NANE«LS4742I .NC62.TTM| ,OUP*OLO 
P/tO.FT ItFOOl  DO  OtN4HE*LS4742I.ME42.TTM2.01tP*OLO 
//tO.FTItfOOl  00  0tNANE*LS47421 .MC02.WT .OltPaOLO 
//C0.FT24F661  00  0|NANE«L 14742 I.NE 02. PBRA.OItPaOLO 
//•O.trtlN  00  * 


DATA 


/• 


c< 

c< 

e< 


r  2 
r  2 
ri 
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APPENDIX  B 

the  Use  of  Program 


APPENDIX  B 


A  Guide  to  the  Use  of  Program  FILM 

The  purpose  of  this  appendix  is  to  acquaint  the  user  with  the  Fortran 
program  so  that  he  is  able  to  perform  a  successful  execution.  Details  are  out¬ 
lined  under  the  following  headings; 

i)  Setting  Up  a  Data  Deck  for  Program  FILM,  and 
ii)  Sample  Data  Deck  and  Results. 


Setting  Up  a  Data  Deck  for  Program  FILM 

1.0  General  Information  format 

DATA:  JPRN,  COORD,  JSTRT,  JSLOT,  JSTOT,  JHEAT  612 

JPRN  =  0  to  omit  printout  of  results  at  key  points  in  the  com¬ 
putations.  Otherwise,  a  printout  will  be  produced. 

COORD  =  0  for  axi symmetric  flow.  Otherwise,  plane  flow  is 
assumed. 

JSTRT  =  0  if  data  describing  the  main-stream  conditions  at 

inflow  are  to  be  specified  by  the  user.  Otherwise,  out¬ 
put  boundary  conditions  from  the  last  run  to  be  executed 
will  be  fetched  from  the  disk  and  used  to  describe  the 
main  stream  in  the  present  run. 

JSLOT  is  the  slot  number  as  identified  by  the  user.  It  is 
present  only  for  recording  purposes. 

JSTOT  is  the  total  number  of  slots  in  the  application  being 

investigated.  It  is  present  only  for  recording  purposes. 

JHEAT  =  0  for  cases  where  it  is  not  necessary  to  solve  the 

energy  equation.  In  these  cases  the  temperature  profile 
that  is  specified  at  the  inflow  boundary  is  assumed  to 
exist  at  all  streamwise  stations  in  the  flow  field. 


DATA:  Dl,  D2,  DX,  DYY,  XL,  XH,  DW,  DWIN  8F10.6 


D1  is  the  slot  width  (inches). 

D2  is  the  length  of  the  injection  slot  (inches). 


B-2 


DX 

DYY 

XL 

XH 

DM 

DWIN 

DATA: 

PATM 

TATM 

RGAS 

TWMAX 

2.0 

2 

DATA: 

JRADL 


format 


is  the  incremental  distance  between  stations  in  the  stream- 
wise  direction  (inches). 

is  the  incremental  distance  between  stations  in  the  trans¬ 
verse  direction  of  the  finest  grid  zone  (inches). 

is  the  overall  length  of  the  surface  over  which  the  flow 
is  to  be  computed.  It  is  measured  from  the  entrance  of 
the  injection  slot  to  the  downstream  end  of  the  grid 
(inches) . 

is  the  height  of  the  grid  network  (inches),  measured  from 
the  duct  wall . 

is  the  duct  wall  thickness  (inches), 
is  the  slot  lip  thickness  (inches). 


PATM,  TATM,  RGAS,  TWMAX  4F12.6 

is  ambient  pressure  (psia)  on  the  exterior  of  the  duct. 

is  ambient  temperature  (°R)  on  the  exterior  of  the  duct. 

is  the  gas  constant  for  both  injected  and  main  streams 
(ft-lbf/lbm  -  °R) . 

is  the  maximum  allowable  wall  temperature  (°R)  that  the 
duct  can  assume.  The  run  will  terminate  if  the  wall 
exceeds  this  temperature. 


Input  of  Data  Pertaining  to  Streamwise  Boundary  Conditions 
. 1  Duct  Radius  and  Mall  Slope 

JRADL  12 

is  a  flag  to  assist  in  setting  up  streamwise  distributions 
of  duct  radius  and  wall  slope.  JRADL  =  0  implies  Case  1. 
Otherwise,  Case  2  is  assumed.  Note  that  for  plane  flow 
this  information  is  required  only  for  recording  purposes. 
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Case  1  ( JRADL  =  0) 

DATA:  RADUP,  RDIUS(l),  ...RDIUS(J),  ...RDIUS(M) 

RADUP  is  the  duct  radius  (inches)  one  station  upstream  of  the 
point  of  injection. 

RDIUS(J)  is  the  duct  radius  (inches)  at  streamwise  station  J  in 
the  grid  network. 

DATA:  ALPHU,  ALPHA (1 ) ,  ...ALPHA(J),  . . .ALPHA(M) 

ALPHU  is  the  duct  wall  slope  (radians)  one  station  upstream  of 
the  point  of  injection. 

ALPHA(J)  is  the  duct  wall  slope  (radians)  at  streamwise  station  J 
in  the  grid  network. 


Case  2  (JRADL  j-  0) 

DATA:  A,  B,  C 

A,  B,  C  are  coefficients  in  the  equation,  radius  R  =  A  +  Bs  +  Cs2, 
which  specifies  the  duct  wall  shape.  Here  s  is  measured 
in  inches  along  the  duct  centre  line  from  the  entrance  of 
the  injection  slot.  These  coefficients  allow  the  calcula¬ 
tion  of  all  radii  (inches)  and  wall  slopes  (radians).  For 
a  duct  of  constant  radius  B  =  C  =  0.  For  a  tapered  duct 
C  =  0.  See  below. 


format 


8F10.6 
per  card 


8F10.6 
per  card 


3F10.6 


i  DUCT  WALL  . 
R*  A+Bs+Csz 


SLOT' 

LIP 


i  DUCT  ^ 


format 


2.2 

DATA:  J V 
JV 


VWALL(J) 

VWALL(l) 

DVDX 

2.3 

DATA:  JT 
JT 


TINF(J) 


Wall  Bleed  Velocity 


12 


is  a  flag  to  assist  in  setting  up  the  streamwise  distribu¬ 
tion  of  wall  bleed  velocity.  JV  =  0  implies  Case  1. 
Otherwise,  Case  2  is  assumed. 


Case  1  (JV  =  0) 

DATA:  VWALL(l),  ...VWALL(J),  . . . VWALL(M)  8F10.6 

per  card 

is  the  wall  bleed  velocity  (fps)  at  streamwise  station  J 
in  the  grid  network. 


Case  2  (JV  f  0) 

DATA:  VWALL(l),  DVDX  2F10.6 

is  the  wall  bleed  velocity  (fps)  at  streamwise  station  1 
(the  point  of  injection)  in  the  grid  network. 

is  the  linear  gradient  of  wall  bleed  velocity  (fps/inch). 


Free-Stream  Temperature 


12 


is  a  flag  to  assist  in  setting  up  the  streamwise  distribu¬ 
tion  of  free-stream  temperature.  JT  =  0  implies  Case  1. 
Otherwise,  Case  2  is  assumed. 


Case  1  (JT  =  0) 

DATA:  TINF(l),  ...TINF(J),  . . . TINF(M)  8F10.6 

per  card 

is  the  free-stream  temperature  (°R)  at  streanwise  station 
J  in  the  grid  network. 


Case  2  (JT  f  0) 

DATA:  TINF(l),  DTDX 


2F11.6 


a 


TINFO) 


is  the  free-stream  temperature  (°R)  at  streamwise  station 
1  (the  point  of  injection)  in  the  grid  network. 


DTDX  is  the  linear  gradient  of  free-stream  temperature  (°R/ 
inch) . 


2.4  Free-Stream  Velocity  and  Static  Pressure 
DATA:  PSLOT,  PMAIN 

PSLOT  is  the  static  pressure  (psia)  in  the  slot  one  station 
upstream  of  the  point  of  injection. 

PMAIN  is  the  static  pressure  (psia)  in  the  main  stream  one  sta¬ 
tion  upstream  of  the  point  of  injection. 


DATA:  JSEP 


JSEP  is  a  flag  to  assist  in  setting  up  the  streamwise  distribu¬ 
tions  of  free-stream  velocity  and  pressure.  JSEP  =  0 
implies  Case  1.  Otherwise,  Case  2  is  assumed. 


Case  1  (JSEP  =  0) 

DATA:  UINF(l),  ...UINF(J),  ...UINF(M) 


UINF(J)  is  the  streamwise  component  of  free-stream  velocity  (fps) 
at  streamwise  station  J  in  the  grid  network. 

DATA:  PRES ( 1 ) ,  ...PRES(J),  ...PRES(M) 


PRES(J)  is  the  static  pressure  (psia)  at  streamwise  station  J  in 
the  grid  network. 


Case  2  (JSEP  f  0) 
DATA:  JPAR 


-5 

format 


2F15.10 

12 

8F10.6 
per  card 

8F10.6 
per  card 

12 


JPAR 


is  a  flag  to  assist  in  setting  up  the  streamwise  distribu¬ 
tions  of  free-stream  velocity  and  pressure.  JPAR  =  0  implies 
Case  2-1.  Otherwise,  Case  2-2  is  assumed. 


format 


UINF(l) 

JPRES 

PRES(J) 

PRES(l) 

DPDX 

PRES ( 1 ) 


Case  2-1  (JSEP  j  Q,  JPAR  =  0) 

DATA:  UINF(l) 

is  the  streamwise  component  of  free-stream  velocity  (fps) 
at  streamwise  station  1  (the  point  of  injection)  in  the 
grid  network. 

DATA:  JPRES 


is  a  flag  to  assist  in  setting  up  the  streamwise  distribu¬ 
tions  of  free-stream  velocity  and  pressure.  JPRES  =  0 
implies  Case  2-1-1.  Otherwise,  Case  2-1-2  is  assumed. 


Case  2-1-1  (JSEP  j  0,  JPAR  =  0,  JPRES  =  0) 

DATA:  PRES ( 1 ) ,  ...PRES(J),  ...PRES(M) 

is  the  static  pressure  ( ps i a )  at  streamwise  station  J  in 
the  grid  network. 


Case  2-1-2  (JSEP  j  0,  JPAR  =  0,  JPRES  j  0) 

DATA:  PRES(l),  DPDX 

is  the  static  pressure  ( psi a)  at  streamwise  station  1  (the 
point  of  injection)  in  the  grid  network. 

is  the  linear  gradient  of  static  pressure  (psia/inch). 


Case  2-2  (JSEP  f  0,  JPAR  t  0) 

DATA:  PRES(l) 

is  the  static  pressure  (psia)  at  streamwise  station  1  (the 
point  of  injection)  in  the  grid  network. 

DATA:  JU 

is  a  flag  to  assist  in  setting  up  the  streamwise  distribu¬ 
tions  of  free-stream  velocity  and  pressure.  JU  =  0  implies 
Case  2-2-1.  Otherwise,  Case  2-2-2  is  assumed. 


F10.6 


12 


8F10.6 
per  card 


2F15.10 


F10. 6 


12 


JU 
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UINF(J) 


UINF(l) 


DUEDX 


Case  2-2-1  (JSEP  t  0,  JPAR  j  0,  JU  =  0) 

DATA:  UINF(l),  ...UINF(J),  ...UINF(M) 

is  the  streanwise  component  of  free-stream  velocity  (fps) 
at  streamwise  station  J  in  the  grid  network. 


Case  2-2-2  (JSEP  j  0,  JPAR  j  0,  JU  j  0) 

DATA:  UINF(l),  DUEDX 

is  the  streamwise  component  of  free-stream  velocity  (fps) 
at  streamwise  station  1  (the  point  of  injection)  in  the 
grid  network. 

is  the  linear  gradient  of  free-stream  velocity  (fps/inch). 


Input  of  Data  Pertaining  to  Inflow  Boundary  Conditions 


3.1  Transverse  Velocity  at  the  Point  of  Injection 


format 


8F10.6 
per  card 


2F10.6 


DATA:  JVEL 


is  a  flag,  used  in  conjunction  with  JSTRT  (specified  pre¬ 
viously),  to  assist  in  setting  up  the  transverse  distribu¬ 
tion  of  transverse  velocity.  JVEL  =  0  implies  Case  1. 
Otherwise,  Case  2  is  assumed. 


Case  1  (JVEL  =  O' 


JSTRT  =  0  implies  Case  1-1.  Otherwise,  Case  1-2  is  assumed. 


VM1(J) 


Case  1-1  (JVEL  =  0,  JSTRT  =  0) 

DATA:  VM1(1),  ...VM1(J),  ...VM1(N) 

is  the  transverse  component  of  velocity  (fps)  at  transverse 
station  J  of  the  grid  network. 


Case  1-2  (JVEL  =  0,  JSTRT  f  0) 


DATA:  VM1(1),  ...VM1(J),  ...VMl(Nl) 


8F10.5 
per  card 


8F10.5 
per  card 
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format 


VM1(J)  is  as  above.  Values  of  VM1(J)  for  N1  <  J  <  N  will  be  read 
from  a  disk  file. 

Case  2  (JVEL  j  0) 

JSTRT  =  0  implies  Case  2-1.  Otherwise,  Case  2-2  is 
assumed. 

Case  2-1  (JVEL  f  0,  JSTRT  =  0) 

DATA:  none 

VM1(J)  is  set  to  zero  for  all  1  <  J  <  N. 

Case  2-2  (JVEL  j  0,  JSTRT  f  0) 

DATA:  none 

VM1(J)  is  set  to  zero  for  all  1  <  J  <  N1 .  Values  of  VM1(J) 
for  N1  <  J  <  N  will  be  read  from  a  disk  file. 

3.2  Transverse  Velocity  One  Station  Upstream  of  Injection 
Repeat  3.1  but  for  array  VM2. 


3.3  Temperature  at  the  Point  of  Injection 

DATA:  JT  12 

JT  is  a  flag,  used  in  conjunction  with  JSTRT  (specified  pre¬ 

viously),  to  assist  in  setting  up  the  transverse  distribu¬ 
tion  of  temperature.  JT  =  0  implies  Case  1.  Otherwise, 

Case  2  is  assumed. 


Case  1  (JT  =  0) 

JSTRT  =  0  implies  Case  1-1.  Otherwise,  Case  1-2  is  assumed. 


TM1(J) 

TM1(J) 


TINF2 

TINF1 

TINF2 


Case  1-1  (JT  =  0,  JSTRT  =  0) 

DATA:  TM1 ( 1 ) ,  ...TM1(J),  ...TM1(N) 

is  the  temperature  (°R)  at  transverse  station  J  of  the 
grid  network. 

Case  1-2  (JT  =  0,  JSTRT  i  0) 

DATA:  TM1 ( 1 ) ,  _ TM1 (J) ,  ...TMl(Nl) 

is  as  above.  Values  of  TM1(J)  for  N1  <  J  <  N  will  be 
read  from  a  disk  file. 


Case  2  (JT  j  0) 

JSTRT  =  0  implies  Case  2-1.  Otherwise,  Case  2-2  is 
assumed. 


Case  2-1  (JT  1  0,  JSTRT  =  0) 

DATA:  TINF2,  TINF1 

is  the  uniform  temperature  (°R)  of  the  fluid  in  the  injec¬ 
tion  slot. 

is  the  uniform  temperature  (°R)  of  the  main-stream  fluid. 


Case  2-2  (JT  j  0,  JSTRT  j  0) 

DATA:  TINF2 

is  as  above.  The  temperature  profile  for  the  main  stream 
will  be  read  from  a  disk  file. 


format 

8F10.5 
per  card 

8F10.5 
per  card 

2F10.5 

F10.5 


3.4  Temperature  One  Station  Upstream  of  Injection 
Repeat  3.3  but  for  array  TM2. 
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DATA: 

JVEL 

UM1(J) 

UDEL2 

DELT2 

PARM2 


JVEL 


format 


5  Streamwise  Velocity  at  the  Point  of  Injection 

JVEL  12 

is  a  flag  to  assist  in  setting  up  the  transverse  distri¬ 
bution  of  streamwise  velocity  in  the  injection  slot. 

JVEL  =  0  implies  Case  1.  Otherwise,  Case  2  is  assumed. 


Case  1  (JVEL  *  0) 

DATA:  UM1(1),  ...UM1(J),  ...UMl(Nl)  8F10.5 

per  card 

is  the  streamwise  component  of  velocity  (fps)  at  trans¬ 
verse  station  J  of  the  grid  network. 


Case  2  (JVEL  f  0) 

DATA:  UDEL2,  DELT2,  PARM2  3F10.5 


is  the  streamwise  core  velocity  (fps)  in  the  injection 
slot. 

is  the  thickness  (inches)  of  both  slot  boundary  layers. 
DELT2  must  be  less  than  half  the  slot  width. 

is  the  law  of  the  wake  profile  parameter  for  the  slot 
boundary  layers. 

The  above  three  parameters  are  used  in  conjunction  with 
the  law  of  the  wall  and  the  law  of  the  wake  to  compute  the 
streamwise  velocity  profile  in  the  slot.  The  main-stream 
velocity  profile  is  dealt  with  below.  JSTRT  =  0  implies 
Case  1.  Otherwise,  Case  2  is  assumed. 


Case  1  (JSTRT  =  0) 

DATA:  JVEL  12 


is  a  flag, used  in  conjunction  with  JSTRT  (specified  pre¬ 
viously),  to  assist  in  setting  up  the  transverse  distribu¬ 
tion  of  streamwise  velocity  in  the  main  stream.  JVEL  =  0 
implies  Case  1-1.  Otherwise,  Case  1-2  is  assumed. 
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UM1(J) 

DELT1 

JDAT 

UDEL1 

CF 


UDEL1 

PARM1 


Case  1-1  ( JSTRT  =  0,  JVEL  =  0) 

DATA:  UM1 (N2) ,  ...UM1(J),  ...UM1(N) 
is  as  above. 


Case  1-2  (JSTRT  =  0,  JVEL  t  0) 

DATA:  DELT1 

is  the  main-stream  boundary-layer  thickness  (inches). 

DATA:  JDAT 

is  a  flag,  used  in  conjunction  with  JSTRT  and  JVEL,  to 
assist  in  setting  up  the  transverse  distribution  of  stream- 
wise  velocity  in  the  main  stream.  JDAT  =  0  implies  Case 
1-2-1.  Otherwise,  Case  1-2-2  is  assumed. 

Case  1-2-1  (JSTRT  =  0,  JVEL  i  0,  JDAT  =  0) 

DATA:  U0EL1 ,  CF 

is  the  main-stream  outer  edge  velocity  (fps). 

is  the  skin  friction  coefficient  associated  with  the  main 
stream. 


Case  1-2-2  (JSTRT  =  0,  JVEL  1  0,  JDAT  t  0) 

DATA:  UDEL1,  PARM1 
is  as  above. 

is  the  law  of  the  wake  profile  parameter  for  the  main¬ 
stream  boundary  layer. 


Case  2  (JSTRT  t  0) 

DATA:  none 

The  transverse  distribution  of  streamwise  velocity  will  be 
read  from  a  disk  file. 


format 

8F10.5 
per  card 

F10. 5 

12 

2F15.10 

2F15.10 


B-12 


format 

3.6  Streamwise  Velocity  One  Station  Upstream  of  Injection 

Repeat  3.5  but  for  array  UM2. 

Sample  Data  Deck  and  Results 

Consider  the  following  hypothetical  case.  Air  at  an  ambient  tempera¬ 
ture  of  530°R  is  drawn  through  an  injection  of  2-inch  length  and  0.75-inch 
width  which  completely  surrounds  the  circumference  of  a  duct  of  28-inch  outside 
diameter  and  0.06-inch  wall  thickness.  The  slot  boundary  layers  are  0.25 
inches  thick  and  have  a  profile  parameter  (after  Coles)  of  0.1411,  correspond¬ 
ing  to  a  core  velocity  of  48.5  fps.  This  entrained  stream  interacts  with  a 
main  exhaust  stream  whose  core  temperature  and  velocity  are  1048°R  and  151.9 
fps,  respectively.  The  main-stream  boundary  layer  is  2  inches  thick  and 
exhibits  a  profile  parameter  of  0.55.  Both  flows  are  parallel  with  no  trans¬ 
verse  components  of  velocity,  pressure  gradients  or  heat  transfer  upstream  of 
their  interaction  with  one  another.  The  gases,  which  are  assumed  to  behave 
like  air,  mix  in  a  turbulent  fashion  in  a  cylindrical  duct  of  12-inch  overall 
length  and  0.06-inch  wall  thickness.  The  static  pressure  varies  linearly  along 
the  duct  from  13.384368  to  13.389323  psia. 

A  grid  network  of  5.25-inch  height  and  10-inch  length  (from  x  =  2 
to  x  =  12  inches)  will  be  used.  The  streamwise  step  size  will  be  1  inch  and 
the  finest  transverse  step  size  will  be  0.C3075  inches. 

In  addition  to  turbulent  mixing  other  modes  of  heat  transfer  exist. 

The  film-cooled  duct  of  emissivity  0.95  receives  radiative  heat  from  an  upstream 
source  whose  temperature  and  emissivity  are  571. 5°R  and  1.0,  respectively. 

As  well,  the  duct  radiates  heat  to  a  cool  downstream  source  possessing  a  temp¬ 
erature  of  530°R  and  emissivity  of  1.0.  The  radiation  shape  factors  for  these 
energy  exchanges  are  summarized  in  Table  B~I  below. 
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distance  from 
slot  exit 
(inches) 

factor  from  hot 
upstream  source 
to  duct 

factor  from  duct 
to  downstream  cold 
source 

1 

0.463 

0.048 

2 

0.430 

0.051 

3 

0.398 

0.055 

4 

0.369 

0.058 

5 

0.342 

0.062 

6 

0.316 

0.066 

7 

0.293 

0.071 

8 

0.271 

0.076 

9 

0.251 

0.081 

10 

0.232 

0.087 

TABLE  B-I:  Radiation  Shape  Factors  for  Sample  Problem 

A  final  radiative  heat-transfer  process  is  one  from  the  exhaust  gas  to 
the  duct  wall.  For  these  purposes  the  gas  is  assumed  to  have  an  emissivity 
of  0.05  and  the  effective  shape  factor  is  considered  to  be  unity.  Radia¬ 
tion  between  neighbouring  regions  of  the  duct  is  ignored. 

A  sample  data  deck  for  this  problem  appears  in  Figure  B-l.  A 
portion  of  the  output  showing  results  of  the  iterative  solution  procedure 
appears  in  Figure  B-2.  These  results  are  illustrated  graphically  in 
Figure  8.  The  example  just  presented  is  actually  the  first  slot  of  the 
three-slot  configuration  shown  in  the  figure. 
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FILM  COOLING  INITIALIZATION  SUMMARY 


1)  GENERAL  INFORMATION 


-CONFIGURATION!  SLOT  NUMBER  1  OF  A  3  SLOT  FACILITY 
-COORDINATE  SYSTEM!  AxlSYMMETRlC 


2)  GR10  GEOMETRY  INFORMATION 

•SLOT  HEIGHT!  0.75  INCHES 
-SLOT  ENTRY  LENGTH!  2.00  INCHES 

•LONGITUDINAL  CALCULATION  INTERVAL!  FROM  x  ■  2.00  INCHES  TO  X  >  12.00  INCHES 

-TRANSVERSE  CALCULATION  INTERVAL!  FROM  V  «  0.00  INCHES  TO  T  I  5.25  INCHES 

-LONGITUDINAL  STEP  SIZE!  1.00000  INCHES 

•FINEST  RADIAL  STEP  SIZE!  0.000750  INCHES 

-INNER  MALL  THICKNESS!  0.0600  INCHES 

-OUTER  NALL  THICKNESS!  0.0600  INCHES 

3)  ATMOSPHERIC  INFORMATION 

-AMBIENT  PRESSURE!  I  I  .  <4000  PSIA 
•AMBIENT  TEMPERATURE!  530.000  'H 

41  FLU10  DYNAMIC  INFORMATION 

-VON  KARMAN’S  LAW  OF  THE  MALL  CONSTANT!  0.4350 


2«XS?AG£ 


-iJALlfH  ttuQTlCA& 
-‘.'IjxliiD  IODDC 


-ADDITIVE  CONSTANT  IN  LAM  OF  THE  MALL  I  5.240 
-VAN  DRIEST »S  DAMPING  PARAMETER!  26.00 


-FLUID  GAS  CONSTANT!  53.350  fT-LBF/LBM-R 


51  STREAMMlSE  BOUNDARY  CONDITIONS 

-STREAMNISE  DISTRIBUTION  of  FREE-STREAM  VELOCITYi 


VELOCITY  U  (EPS) 


2.000  *  0.151 9000D*03  0. 1S14S77D*0S  0.15101420*03  0.15056940*03 

8.000  •  0. 14922730*03  0 . 14677730*03  0. 1 4032590*03  0.14787320*03 


-STREAMMlSE  DISTRIBUTION  OF  STATIC  PRESSURES 
X  (INCHES) 


STATIC  PHLSSUHE  P  (PS IA) 


2.000  *  0.1 3304370*02  0.13384660*02  0.13385360*02  0 . 1 S38585D*02 

8.000  *  0.1 3307340*02  0. 1 3367040*02  0.13388330*02  0.13386630*02 

•STREAMMlSE  DISTRIBUTION  OF  FREE-STREAM  TEMPERAjURtS 

X  (INCHES)  TEMPERATURE  T  (•«) 

2.000  *  0.10400000*04  0.10460000*04  0.10460000*04  0.10460000*04 

6.000  •  0.10480000*04  0.10460000*04  0.10460000*04  0.10460000*04 


-STREAMMlSE  DISTRIBUTION  OF  BLEED  VELOCITY  AT  THE  MALLS 


X  (INCHES) 


2.000  • 

6.000  • 


-STREAMMlSE  DISTRIBUTION  OF  CHANNEL  RADIUS! 
X  (INCHES) 


VELOCITY  V  (FPS) 


CHANNEL  RADIUS  R  (INCHES) 
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Figure  B-2:  A  Sample  Printout  for  Program  Film  (Page  1), 
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0.455020*02  0.455 36D*02  0.455700*0?  0.456030*0?  0.956370*02 
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Figure  B-2:  A  Sample  Printout  for  Program  Film  (Page  2). 
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0.0 

0.0 

0.0 

o.o 

0.0 

0.2475 

0.0 

0.0 

0.0 

o.o 

0.0 

0.2550 

0.0 

0.0 

0.0 

0.0 

o.o 

0.2*25 

0.0 

0.0 

o.o 

0.0 

0.0 

0.2700 

0.0 

0.0 

o.o 

0.0 

0.0 

0.2775 

0.0 

0.0 

0.0 

0.0 

0.0 

0.2050 

0.0 

0.0 

0.0 

0.0 

o.o 

0.2025 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3000 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3075 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3150 

o.o 

0.0 

0.0 

0.0 

0.0 

0.3225 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3300 

0.0 

0.0 

o.o 

0.0 

0.0 

0.3375 

0.0 

0.0 

0.0 

0.0 

o.o 

0.3450 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3525 

0.0 

0.0 

0.0 

0.0 

o.o 

0.3*00 

0.0 

0.0 

0.0 

0.0 

o.o 

0.3*75 

0.0 

0.0 

0.0 

o.o 

o.o 

0.3750 

0.0 

0.0 

0.0 

0.0 

o.o 

0.4500 

0.0 

0.0 

o.o 

0.0 

o.o 

0.5250 

0.0 

0.0 

0.0 

0.0 

o.o 

o.*ooo 

0.0 

0.0 

0.0 

0.0 

o.o 

0.6750 

0.0 

0.0 

0.0 

0.0 

o.o 

0.7500 

0.0 

0.0 

0.0 

0.0 

o.o 

0.0250 

0.0 

0.0 

0.0 

0.0 

0.0 

0.4000 

0.0 

0.0 

0.0 

0.0 

o.o 

0.4750 

0.0 

0.0 

o.o 

0.0 

o.o 

1.0500 

0.0 

0.0 

0.0 

0.0 

0.0 

1.1250 

0.0 

0.0 

0.0 

0.0 

o.o 

1.2000 

0.0 

0.0 

0.0 

0.0 

o.o 

1.2750 

0.0 

0.0 

0.0 

0.0 

O.o 

1.3500 

0.0 

0.0 

0.0 

0.0 

0.0 

1.4250 

0.0 

0.0 

o.o 

0.0 

o.o 

1.5000 

0.0 

0.0 

0.0 

0.0 

o.o 

2.2500 

0.0 

0.0 

0.0 

0.0 

o.o 

3.0000 

0.0 

0.0 

0.0 

0.0 

o.o 

3.7500 

0.0 

0.0 

o.o 

0.0 

o.o 

4.5000 

0.0 

0.0 

0.0 

0.0 

o.o 

5.2500 

o.o 

VELOCITY  V  (FPD 


-TRANSVERSE  DISTRIBUTION  OF  TEMPERATURE  I 


TEMPERATURE  T  (»R> 


0.530000*03 

0.510000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.550000*03 

0.550000*03 

0.530000*05 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 


0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.510000*03 

0.530000*03 

0.530000*03 

0.510000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*05 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 


0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*01 

0.510000*03 

0.530000*03 


0,530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 


0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.510000*03 

0.530000*01 

0.530000*03 

0.530000*03 

0.530000*03 

0.510000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 


0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.510000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 


0.510000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 


0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*01 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*01 

0.530000*03 

0.530000*03 

0.530000*03 


0.530000*03 

0.530000*03 

0.530000*03 

0.530000*01 

0.510000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*03 

0.530000*01 

0.530000*03 


0.530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 
0. 530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 
0.530000* 


Figure  B-2:  A  Sample  Printout  for  Program  Film  (Page  3), 


STP  507 


•WJSk  FUSSI  1,nl 


0.1425  •  0.510000*01  0.510000*03  0.510000*01  0.510000*01  0.51U00O*01  0.510000*01  0.510000*01  0.510000*01  0,510000*01  0.510000*01 
0.1500  •  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*0}  0. 510000*01 
0.1575  •  0.510000*01  0.510000*01  0.510000*0]  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.5)0000*0) 
0.1*50  *  0.510000*0}  0.510000*0}  0.510000*01  0.51000D*01  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*01 
0.1725  «  0.510000*01  0.530000*01  0.510000*03  0.530600*03  0.530000*03  0.530000*03  0.530000*03  0.530000*01  0.510000*01  0.510000*01 
0.1000  *  0.510000*01  0,510000*01  0.51000D*01  0.510000*01  0.510000*0]  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*0) 
0.1075  •  0.510000*01  0,510000*03  0.510000*0}  0.510000*01  0.510000*01  0.510000*03  0.510000*01  0.510000*03  0.510000*01  0.510000*03 
Q .1450  •  0.530000*01  0.530000*03  0.530000*03  0.530000*03  0.530000*03  0.530000*03  0.510000*01  0.510000*03  0.510000*01  0.510000*01 
0.2025  •  0.510000*01  0.510000*01  0.510000*0}  0.510000*01  0.510000*03  0.510000*01  0.510000*03  0.510000*01  0.510000*01  0.5)0000*01 
0.2100  *  0.510000*0}  0.510000*01  0.510000*01  0.510000*03  0.510000*01  0.510000*01  0.5)0000*0)  0.510000*01  0.510000*01  0.510000*01 
6.2175  •  0.510000*01  0.530000*01  0.53000D«03  0.510000*03  0.530000*0}  0.510000*01  0.530000*01  0.510000*01  0.530000*01  0.510000*01 
0.2250  •  0.530000*0}  0,510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*03  0.530000*01  0.51000D*01  0.510000*01  0.5)0000*01 
0.2325  •  0.510000*01  0,510000*01  0.530000*03  0.510000*01  0.510000*01  0.530000*03  0.510000*03  0.510000*01  0.510000*01  0.5)0000*9) 
0.2*00  •  0.530000*0}  0.51000D*01  0.510000*03  0.510000*01  0.530000*0}  0.510000*01  0.510000*01  0.510000*01  0.510000*01  0.510000*01 
0.2*75  •  0.510000*01  0.510000*0}  0.530000*03  0.51000D*03  0.510000*01  0.530000*01  0.510000*01  0.510000*03  0.510000*01  0.510000*01 
0.2550  •  0.510000*0}  0.510000*0}  0.510000*03  0.530000*03  0.530000*03  0.510000*03  0.530000*03  0.530000*03  0.530000*01  0.5)0000*0} 
0.2*25  •  0.530000*0}  0.510000*01  0.530000*01  0.530000*01  0.510000*03  0.510000*01  0.510000*03  0.510000*01  0.510000*01  0.5)0000*0) 
0.2700  *  0.530000*01  0.530000*61  0.510000*0}  0.510000*03  0.530000*01  0.510000*01  0.510000*01  0.510000*03  0.510000*01  0.510000*01 
0.2775  *  0.530000*0]  0.530000*03  0.510000*03  0.530000*03  0.530000*03  0.530000*03  0.530000*03  0.530000*03  0.530000*03  0.510000*03 
0.2050  •  0.530000*03  0,530000*01  0.510000*01  0.510000*01  0.510000*01  0.530000*01  0.530000*0}  0.510000*03  0.530000*01  0.510000*01 
0.2925  •  0.530000*03  0.510000*0}  0.530000*03  0.530000*03  0.530000*03  0.510000*01  0.530000*03  0.530000*01  0.510000*01  0.510000*01 
0.3000  •  0.530000*03  0.530000*0}  0.330000*03  0.530000*03  0.530000*0}  0.530000*03  0.530000*03  0.530000*03  0.530000*01  0.510000*01 
0.1075  *  0.510000*03  0.510000*01  0.530000*03  0.530000*01  0.530000*03  0.530000*03  0.530000*03  0.530000*03  0.530000*0}  0.510000*01 
0.1150  •  0.510000*03  0.51000D«03  0.530000*03  0.510000*01  0.510000*01  0.530000*01  0.530000*03  0.530000*03  0.530000*01  0.510000*03 
0.3225  •  0.530000*03  0.530000*0}  0.510000*03  0.530000*03  0.510000*01  0.510000*03  0.530000*0}  0.510000*03  0.510000*01  0.550000*03 
0.3)00  •  0.530000*03  0.530000*01  3. 510000*0}  0.510000*01  0.530000*03  0.510000*03  0.530000*03  0.530000*03  0.5)0000*01  0.5)0000*03 
0.3375  •  0.510000*0]  0.530000*03  0.510000*03  0.530000*0)  0.510000*01  0.510000*03  0.530000*0)  0.510000*01  0.530000*0)  0.5)0000*01 
0.3450  *  0.530000*01  0.530000*01  0.510000*0}  0.53000D*0)  0.530000*0}  0.530000*03  0.530000*01  0.530000*0)  0.5)0000*0)  0.5)0000*0) 
0.3525  «  0.510000*01  0.510000*01  0.510000*01  0.510000*0)  0.510000*0)  0.51OOOD*O)  0.5)0000*0)  0.5)0000*0)  0.510000*0)  0.510000*01 
0.1*00  •  0.510000*01  0.530000*01  0.510000*01  0.510000*0)  0.510000*01  0.5)0000*01  0.510000*0}  0.5)0000*01  0.5)0000*01  0.510000*03 
0.1*75  *  0.51000D*0)  0.510000*01  0.5}OOOD«03  0.530000*0)  0.5)0000*03  0.510000*03  0.530000*01  0.51000D«01  0.530000*03  0.5)0000*0) 
0.1750  •  0.510000*01  0.510000*03  0.510000*03  0.510000*0)  0.5)0000*01  0.5)0000*0)  0. 5)0000*0)  0.5)0000*0)  0.5)0000*0)  0.5)0000*0) 
0.4500  •  0.510000*03  0.510000*01  0.53000D*0)  0.530000*0)  0.5)0000*01  0.510000*0)  0.5)0000*03  0.510000*03  0.530000*01  0.530000*0) 
0.5250  •  0.530000*01  0.530000*01  0.5)0000*01  0.510000*0)  0.5)0000*0)  0.530000*03  0.5)0000*0)  0.5)0000*03  0.5)0000*0)  0.5)0000*0) 
0.6000  •  0.510000*03  0.510000*01  0.510000*03  0.510000*0)  0.530000*01  0.530000*0)  0.530000*01  0.S3000D*0)  0.5)0000*0)  0.5)0000*03 
0.6750  •  0.510000*01  0.510000*0}  0.510000*01  0.510000*0)  0.530000*01  0.510000*01  0.530000*01  0.530000*0)  0.530000*0)  0.530000*01 
0.7500  •  0.5)0000*0)  0.594750*0)  0.659500*01  0.724250*0)  0.709000*03  0.053750*03  0.916500*0)  O.90S?$D*O3  0.104000*04  0.104000*04 
0.47<0  *  0.104600*04  0.104600*04  0.104000*04  0.104000*04  0.104600*04  0.104000*04  0.104600*04  0.104000*04  0.104600*04  0.104600*04 
0,  *  0.104000*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04 
0,  •  0.104600*04  0.104600*04  0.104000*04  0.104600*04  0.104600*04  0.104000*04  0.104000*04  0.104000*04  0.104000*04  0.104600*04 
I . CO  •  0.104600*04  0.104600*04  0.104000*04  0.104000*04  0.104000*04  0.104000*04  0.104600*04  0.104000*04  0.104600*04  0.104000*04 
1.12.0  *  0.104000*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04  0.104600*04  0.104000*04 
1.2:  10  •  0.104600*04  0.104600*04  0.104000*04  0.104600*04  0.104000*04  0.104000*04  0.104600*04  0.104000*04  0.104600*04  0.104600*04 
1.2'  *  0.104600*04  0.104000*04  0.104000*04  0.104600*04  0.104000*04  0.104000*04  0.104600*04  0.104000*04  0.104600*04  0.104600*04 
1.3‘sU  *  0.104600*04  0.104600*04  0.104000*04  0.104600*04  0.104000*04  0.104000*04  0. 104000*04  0.104000*04  0.104600*04  0.104000*04 
1.4/SO  *  0.104000*04  0.104600*04  0.104000*04  O.IO40OD*O4  0.104000*04  0.104000*04  0.104600*04  0.104000*04  0.104600*04  0.104800*04 
1.5U.0  •  0.104600*04  0.104600*04  0.104000*04  0.104000*04  0.104000*04  0.104000*04  0.104600*04  0.104000*04  0.104600*04  0.104000*04 
2.2r  .0  •  0.104600*04  0.104600*04  0.104600*04  0.104000*04  0.104600*04  0.104000*04  0.104000*04  0.104000*04  0.104000*04  0.104800*04 
3. >.00  *  0.104600*04  0.104600*04  0.104000*04  0.104600*04  0.104600*04  0.104000*04  0.104600*04  0.10*000*04  0.104600*04  0.104600*04 
3.7500  •  0.104000*04  0.104600*04  0.104000*04  0.I0460D*04  0.104000*04  0.104000*04  0.104000*04  0.104000*04  0.104600*04  0.104600*04 
4.5000  •  0.104800*04  0.104000*04  0.104000*04  O.1O40OD*O4  0.104000*04  0.104000*04  0.104000*04  0.104000*04  0.104600*04  0.104600*04 
5.2500  •  0.104000*04 


0}  ONE  STATION  UPS  t W£ AM  OF  THE  POINT  OF  INJECTION 


•TRANSVERSE  DISTRIBUTION  OF  STREANNlSE  VELOCITY! 

V  (INCHES)  VELOCnt  U  IFPS1 

0.0  •  0.0  0.224100*01  0.440030*01  0.670790*01  0.090020*01  0.110210*02  0.130260*02  0.140900*02  0.165060*02  0.1012)0*02 

0.0075  «  0.195020*02  0.207400*02  0.210520*02  0.226540*02  0.2)7600*02  0.245030*02  0.253320*02  0.260190*02  0.266500*02  0.272120*02 

0.0150  •  0.277700*02  0.202710*02  0.207)00*02  0.291740*02  0.295030*02  0.299400*02  0.103110*02  0.306740*02  0.309900*02  0.111070*02 

0.0225  •  0.116000*02  0.116790*02  0.121450*02  0.124000*02  0.126440*02  0.126700*02  0.1)1030*02  0.3)3190*02  0.335270*02  0.317200*02 

0.0300  »  0.339220*02  0.141090*02  0.142900*02  0.^4*50*02  0.346)50*02  0.346000*02  0.349*00*02  0.3511*0*02  0.152670*02  0.154150*02 

0.0375  •  0.355560*02  0.356960*02  0.350)40*02  0.159670*02  0.160970*02  0.362240*02  0.363490*02  0.164700*02  0.165090*02  0.167060*02 

0.0450  •  0.366200*02  0.169)20*02  0.170410*02  0.171490*02  0.172550*02  0,17)590*02  0.174610*02  0.375610*02  0.176590*02  0.177560*02 

0.0525  •  0.178520*02  0.1794*0*02  0.160)60*02  0.361240*02  0.162190*02  0.161070*02  0.36)940402  0.164000*02  0.105*50*02  0.30*460*02 

0.0*00  •  0.167)10*02  0.166120*02  0.3669)0*02  0.169720*02  0.190500*02  0,191260*02  0.192040*02  0.392600*02  0.39)550402  0.344240*02 

0.0*75  •  0.395020402  0.195740402  0.19*4*0402  0.1971*0*02  0.)976*D*02  0.396560*02  0.399240*02  0.199920*02  0.400600*02  0.40l26D*ofe 

0.0750  •  0.401920*02  0.402560*02  0.40)2)0*02  0.40)870*02  0.404510*02  0.405140*02  0.405760*02  0.406)60*02  0.407000402  0.407610402 

0.0025  •  0.406220402  0.406620402  0.409410*02  0.410000*02  0.410590*02  0.411170*02  0.411750*02  0.412)20*02  0.412690*02  0.61)450*02 

0.0900  •  0.414010*02  0.41 4S7D*02  0.41)120*02  0.415670*02  0.416220*02  0,416760*02  0.417300*02  0.417630*02  0.416360402  0.416650402 

0.0975  *  0.419410402  0.419930402  0.420450402  0.420960402  0.421470*02  0.421960402  0.422490402  0.422990*02  0.423460*02  0.423460*02 

0.1050  *  0.424470*02  0.424960*02  0.425450*02  0.4259)0*02  0.426410*02  0,426690*02  0.427370*02  0.427640*02  0.426)10402  0.426760402 

0.1125  •  0.429240*02  0.429710*02  0.410170*02  0.4)0620*02  0.4)1060*02  0,431530*02  0.431460*02  0.432430*02  0.432680*02  0.4)1)20*02 

0.1200  •  0.43)760*02  0.434200*02  0.434640*02  0.4)5070*02  0.4)5500*02  0.4)5910*02  0.4)6160*02  0.4)6790*02  0.4)7210*02  0.4)76)0*02 

0.1275  *  0.436050*02  0.4)6470*02  0.436690*02  0.4)9300*02  0.4)9710*02  0.440120*02  0.4405)0*02  0.4409)0*02  0.441)40*02  0.441740*02 

0.1350  •  0.442140*02  0.442540*02  0.442930*02  0.443330*02  0.443720*02  0.444110*02  0.444500*02  0.444690*02  0.445270*02  0.445660*02 

0.1425  •  0.446040*02  0.446420*02  0.446790*02  0.447170*02  0.447550*02  0.447920*02  0.446290*02  0.446660*02  0.449010*02  0.444140*02 

0.1500  •  0.444760*02  0.450120*02  0.450460*02  0.450040*02  0.451200*02  0.451550*02  0.451410*02  0.452260*02  0.452610*02  0.452460*02 

0.1575  «  0.451110*02  0.453650*02  0.454000*02  0.454)40*02  0.454680*02  0.455020*02  0.455)60*02  0.455700*02  0.456010*02  0.456170*02 

0.1650  a  0.456700*02  0.457010*02  0.457360*02  0.457640*02  0.456010*02  0.450340*02  0. 450660*02  0.456460*02  0.454)00*02  0.454620*02 

0.1725  •  0.454940*02  0.460250*02  0.460570*02  0.460661*02  0.461190*02  0.461500*02  0.461610*02  0.462110*02  0.462420*02  0.462720*02 

0.1600  •  0.46)020*02  0.46)320*02  0.46)620*02  0.463920*02  0.464220*02  0.464510*02  0.464600*02  0.465100*02  0.465390*02  0.465660*02 

0.1675  *  0.465960*02  0.466250*02  0.4665)0*02  0.466620*02  0.467100*02  0.967)00*02  0.467660*02  0.4679)0*02  0.466210*02  0.660060*02 

0.1950  •  0.466760*02  0.4690)0*02  0.469)00*02  0.469570*02  0.469640*02  0.470100*02  0.470370*02  0.4706)0*02  0.470690*02  0.471150*02 

0.2025  a  0.471410*02  0.471670*02  0.4719)0*02  0.472160*02  0.4724)0*02  0.472640*02  0.472940*02  0.473(90*02  0.47)410*02  0.47)660*02 

0.2100  a  0.47)9)0*02  0.474170*02  0.474410*02  0.474650*02  0.474090*02  0.4751)0*02  0.475170*02  0.475600*02  0.475640*02  0.476070*02 

0.2175  *  0.476)00*02  0.4765)0*02  0.476760*02  0.476990*02  0.477210*02  0.477440*02  0.477660*02  0.477660*02  0.476100*02  6.476)20*62 

0.2250  *  0.476540*02  0.476760*02  0.476970*02  0.479190*02  0.479400*02  0. <‘79610*02  0.479620*02  0.9600)0*02  0.660290*02  0.460640*02 

0.2325  •  0.460650*02  0.460650*02  0.461050*02  0.461260*02  0.401450*02  0.401650*02  0.401050*02  0.462050*02  0.462240*02  0.4624)0*02 

0.2400  a  0.462620*02  0.402610*02  0.463000*02  0.46)190*02  0.46)100*02  0.46)560*02  0.483750*02  0.461910*02  0.404310*02  0.466200*02 

0.2475  *  0.464470*02  0.464650*02  0.464620*02  0.485000*02  0.405000*02  0.965000*02  0.465000*02  0.485000*02  0.405000*02  0.665000*02 

0.2550  *  0.465000*02  0.465000*02  0.465000*02  0.485000*02  0.465000*02  0.485000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02 

0.2625  *  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.965000*02  0.465000*02  0.465000*02  0.405000*02  0.465000*02 

0.2700  a  0.405000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.405000*02  0.465000*02  0.465000*02  0.465000*02  0.665000*02 

0.2775  •  0.405000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.405000*02  0.405000*02  0.665000*62 

0.2650  *  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.405000*02  0.465000*02  0.465000*02  0.685000*02  0.465000*02 

0.2925  *  0.465000*02  0.465000*02  0.465000 *02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.405000*02  0.665000*02  0.465000*02 

O.SOOO  •  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.405000*02  0.465000*02  0.405000*02  0.465000*02  0.465000*02  0.465000*02 

0.1075  *  0.465000*02  0.465000*02  0.465000*02  0.405000*02  0.465000*02  0.465000*02  0.485000*02  0.485000*02  0.465000*02  0.465000*02 


Figure  B-2:  A  Sample  Printout  for  Program  Film  (Page  4) 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 

FROM  CQr  Y  FUKW.1SKED  I'O  DDC 
UNCLASSIFIED  SIP  507 


0.3150  *  0.485000*02  0.465000*02  0.465000*02  0.48SOOD*02  0.46500D*02  0.485000*02  0.485000*02  0.485000*02  0.485000*02  0.485000*02 

0.1225  •  0.485000*02  0.485000*02  0.485000*02  0.485000*02  0.485000*02  0.485000*02  0.485000*02  0.485000*02  0.485000*02  0.485000*02 

0.3100  •  0. 48500D*02  0.485000*02  0.48500D*02  0.485000*02  0.465000*02  0.485000*02  0.485000*02  0.485000*02  0,485000*02  0.485000*02 

0.3375  •  0.465000*02  0.465000*02  0.485000*02  0.465000*02  0.465000*02  0.485000*02  0.465000*02  0.465000*02  0.485000*02  0.485080*02 

0.3450  •  0.465000*02  0.485000*02  0.48500D*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.485000*02  0.485000*02 

0.3525  •  0.485000*02  0.465000*02  0.465000*02  0.465000*02  0.485000*02  0.485000*02  0.465000*02  0.485000*02  0.485000*02  0.485000*02 

0.3600  *  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.485000*02  0.485000*02  0.485000*02 

0.3675  *  0.465000*02  0.465000*02  0.48500D*02  0.465000*02  0.485000*02  0.465000*02  0.465000*02  0.485000*02  0.465000*02  0.465000*02 

0.3750  •  0.465000*02  0.465000*02  0.465000*02  0.485000*02  0.465000*02  0.465000*02  0.465000*02  0.465000*02  0.485000*02  0.465000*02 

0.4500  •  0.465000*02  0.465000*02  0.485000*02  0.485000*02  0.465000*02  0.465000*02  0.465000*02  0.464400*02  0.462530*02  0.460510*02 

0.5250  *  0.476400*02  0.476130*02  0.473720*02  0.471170*02  0.468490*02  0.465650*02  0.462670*02  0.459550*02  0.456270*02  0.452630*02 

0.6000  *  0.444230*02  0.445460*02  0.441510*02  0.4S737D*D2  0.433020*02  0.426450*02  0.423630*02  0.416520*02  0.413040*02  0.487260*02 

0.6750  •  0.401030*02  0.394220*02  0.366730*02  0.376370*02  0.366660*02  0.35775D*02  0.344310*02  0.327140*02  0.303110*02  0.262240*02 

0.7500  •  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.503210*02 

0.0250  •  0.680240*02  0.737020*02  0.777320*02  0.806600*02  0.634160*02  0.655620*02  0.674590*02  0.691170*02  0.906010*02  0.914070*02 

0.9000  •  0.931770*02  0.943100*02  0.953620*02  0.963430*02  0.972630*02  0.961290*02  0.969470*02  0.997240*02  0.100460*03  0.101170*03 

0.9750  •  0.101840*03  0.102490*01  0.103110*03  0.103700*03  0.104260*03  0.104640*03  0.105370*03  0.105900*03  0.106400*03  0.106690*03 

1.0500  •  0.107370*03  0.10783D*03  0.108290*03  0.108730*03  0.109160*03  0.109560*03  0.109990*03  0.110400*03  0.110790*03  0.111180*03 

V . 1 250  «  0.111560*03  0.111930*03  0.112300*03  0.112660*03  0.113010*03  0.113360*03  0.113700*03  0.114040*03  0.114370*03  0.114700*03 

1.2000  •  0.115020*03  0.115340*03  0.115660*03  0.115970*03  0.116260*03  0.116560*03  0.116660*03  0.117160*03  0.117470*03  0.117760*03 

1.2750  •  0.116050*03  0.118330*03  0.116620*03  0.118900*03  0.119170*03  0.119450*03  0.119720*03  0.119990*03  0.120260*03  0.120520*03 

1.3500  >  0.120790*03  0.121050*03  0.121310*03  0.121560*03  0.121820*03  0.122070*03  0.122330*03  0.122580*03  0.122830*03  0.123070*03 

1.4250  •  0.123320*03  0.123560*03  0.123810*03  0.124050*03  0.124290*03  0.124530*03  0.12477D*03  0.125000*03  0.125240*03  0.125470*03 

1.5000  *  0.125700*03  0.127970*03  0.13015D*03  0.132230*03  0.134240*03  0.136170*03  0.138010*03  0.139760*03  0.141450*03  0.143030*03 

2.2500  •  0.144510*03  0.145860*03  0.147150*03  0.148290*03  0.149320*03  0.150220*03  0.150990*03  0.151640*03  0.151900*03  0.151900*03 

3.0000  •  0 . 151900*03  0.151900*03  0.151900*03  0.151900*03  0.151900*03  0.151900*03  0.151900*03  0.151900*03  0.151900*03  0.151900*03 

3.7500  *  0.151900*03  0.151900*03  0.151900*03  0.1S1900*03  0.151900*03  0.151900*03  0.151900*03  0.151900*03  0.151900*03  0.151900*03 

4.5000  •  0.151900*03  0.151900*03  0.151900*03  0.151900*03  0.15190D*03  0.15190D*03  0.15l90D*03  0.15190D*03  0.151900*03  0.151900*03 

5.2500  *  0.151900*03 


BOUNDARY  LAYER  AND  RELATED  PARAMETERS 

PARAMETER  SECONDARY  PRIMARY 

stream  STREAM 

BOUNDARY  LAYER  THICKNESS  (INCHES)  0.25000000*00  0.20000000*01 

DISPLACEMENT  THICKNESS  (INCHES)  0.36906640-01  0.27785690*00 

HOHENTUH  DEFICIT  THICKNESS  (INCHES)  0.?46b366D-01  0.20616490*00 

VELOCITY  PROFILE  SHAPE  FACTOR  0.14643600*01  0.13476200*01 

FRICTION  VELOCITY  (FPS)  0.25560000*01  0.60664190*01 


-TRANSVERSE  DISTRIBUTION  OF  TRANSVERSE  VELOCITY! 


Y  (INCHES)  VELOCITY  V  (FPS) 
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Figure  B-2:  A  Sample  Printout  for  Program  Film  (Page  5). 
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Figure  B-2: 


A  Sample  Printout  for  Program  Film  (Page  6). 
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VELOCITY  ITERATION  NUMBER  1 

OELT1  UOELi  UTAU  VTMM  TOUT 

0. 2209930*00  0.1*77330*03  0.2**0990*01  0.1905*50*00  0.05722*0*01 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORM  •  0.3395*50*01 

VELOCITY  ITERATION  NUMBER  2 

CELT  1  UOELI  UTAU  VTMN  TOUT 

0.22*0200*00  0.1*77350*03  0.25317*0*01  0.19475*0*00  0.4*92990*01 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORM  ■  0.3979*90-02 

VELOCITY  ITERATION  NUMBER  3 

0ELT1  UOELI  UTAU  VTMN  VOUT 

0.22*3420*00  0.1477350*03  0.25*7000*01  0.1919930*00  0.4*437*0*01 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORM  a  0.1*21170-02 

VELOCITY  ITERATION  NUMBER  4 

0ELT1  UOELI  UTAU  VTMN  VOUT 

0.2255530*00  0.1477350*03  0.2575040*01  0.19*3030*00  4.4****20*0l 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORM  ■  0.3473900*03 

VELOCITY  ITERATION  NUMBER  5 

0ELT1  UOELI  UTAU  VTMM  VOUT 

4.2250920*00  0.1477350*03  4.2577530*01  0.1421900*00  0.4*57070*01 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORN  a  0.1955950*03 

VELOCITY  ITERATION  NUMBER  * 

0ELT1  UOELI  UTAU  VTMM  TOUT 

0.2249370*00  0.1477350*03  0.2574240*01  4.1952410*00  0.4*53470*01 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORM  a  0.7121040*04 
TEMPERATURE  FRACTIONAL  DISPLACEMENT  NORM  a  0.2594120*01  MALL  TEMPERATURE  a  0.5449140*03  'R 


TEMPERATURE  ITERATION  NUMBER  2 

VELOCITY  iteration  NUMBER  1 

OELTl  UOELI  UTAU  VTMM  VOUT 

4.2244940*00  0.1477350*03  0.2547440*01  0.1421**0*00  0.4*52940*4I 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORN  a  0.7553940*03 

VELOCITY  ITERATION  NUMBER  2 

OELTl  UOELI  UTAU  VTMM  TOUT 

4.2240430*00  0.1477350*03  0.2543440*01  0.19914*0*40  4.4*52750*01 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORM  a  0. *4*4400-02 
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THIS  PAGE  IS  BEST  QUALITY  PRACTICAL 

Jfc*ji  cor i  .■  UIUilSURD  To  LDC  UNCLASSIFIED 

VCLOCITV  ITERATION  NUMBER  4 

0CIT1  UDEL1  UTAU  VTMM  VOUT 

0.2274190*00  0.1477390*01  0.2972010*01  0.1049000*00  0.4709110*01 

VCLOCITV  FRACTIONAL  DISPLACEMENT  NORN  ■  0.0941400*01 

VCLOCITV  ITERATION  NUMBER  9 

0ELT1  UOELI  UTAU  VTNN  TOUT 

0.2200000*00  0.1477190*01  0.29*0010*01  0.1910700*00  0.4710200*01 

VCLOCITV  FRACTIONAL  DISPLACEMENT  NORN  ■  0.1700100*01 

VCLOCITV  ITERATION  NUMBER  * 

0ELT1  UOELI  UTAU  VTNN  VOUT 

0.2201910*00  0.1477190*01  0.29*0090*01  0.109**10*00  0.4724910*01 

VCLOCITV  FRACTIONAL  DISPLACEMENT  NORN  a  0.9411100*04 


TCNPERATURE  FRACTIONAL  DISPLACEMENT  NORN  a  0.9*17700*02  MALL  TEMPERATURE  a  0.9400420*01  »R 


TEMPERATURE  ITERATION  NUMBER  1 


VCLOCITV  ITERATION  NUMBER  1 

0ELT1  UOELI  UTAU  VTNN  VOUT 

0.2204290*00  0.1477190*01  0.29*0910*01  0.1924700*00  0.472*110*01 

VCLOCITV  FRACTIONAL  DISPLACEMENT  NORM  a  0.1*09140*01 


VELOCITY  ITERATION  NUMBER  2 

0ELT1  UOELI  UTAU  VTNN  TOUT 

0.2204490*00  0.1477190*01  0.29*9010*01  0.1499290*00  0.472*940*01 

VCLOCITV  FRACTIONAL  DISPLACEMENT  NORM  a  0.1409970*02 


VELOCITY  ITERATION  NUMBER  1 

OCLTI  UOELI  UTAU  VTNN  VOUT 

0.2279040*00  0.1477190*01  0.29*9490*01  0.1410910*00  0.470*440-01 

VCLOCITV  FRACTIONAL  DISPLACEMENT  NORM  a  0.«9i!*S0-#J 


VCLOCITV  ITERATION  NUMBER  4 

OCLTI  UOELI  UTAU  VTNN  VOUT 

0.22*4200*00  0.1477190*01  0.29*44*0*01  0.14*9900*00  0.4*44900*01 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORM  a  0.1221*90*01 


VCLOCITV  ITERATION  NUMBER  9 

OCLTI  UOELI  UTAU  VTNN  VOUT 

0.22*7010*00  0.1477190*01  0.2970270*01  0.14227*0*00  0.4*40410*01 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORN  a  0.144*010*04 


TEMPERATURE  FRACTIONAL  DISPLACEMENT  NORM  a  0.1141420*02  MALL  TEMPERATURE  a  0.9400990*01  *R 


TEMPERATURE  ITERATION  NUMBER  4 

VELOCITY  ITERATION  NUMBER  I 

OCLTI  UOELI  UTAU  VfNN  VOUT 

0.22**400*00  0.1477190*01  0.29704*0*01  0.1419140*00  0.4*09|00*0l 

VCLOCITV  FRACTIONAL  DISPLACEMENT  NORM  a  0.4914100-04 
TEMPERATURE  FRACTIONAL  DISPLACEMENT  NORN  a  0.1779440*01  MALL  TEMPERATURE  a  0.9400900*01  »R 


TEMPERATURE  ITERATION  NUNOCR  9 


VELOCITY  ITERATION  NUMBER  I 

OCLTI  UOELI  UTAU  VTMM  VOUT 

0.22**240*00  0.1477190*01  0.2970410*01  0.1921010*00  0.4*00770*01 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORM  a  0.1079700*01 

Figure  B-2:  A  Sample  Printout  for  Program  Film  (Page  8). 
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VELOCITY  ITERATION  NUMBER  2 

DEL  T I  UOEL1  UTAU  VTNM  TOUT 

0 .22491 70*00  0 . 1  A 7 7 15D>03  0. 2570150*01  0.19)9240*00  0.049i43D*0l 

VELOCITY  FRACTIONAL  DISPLACEMENT  NORM  ■  0.40444AO-04 


•V-'AHTY  tHAC 
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TEMPERATURE  FRACTIONAL  DISPLACEMENT  NORM  ■  0.299A95D-04 


MALL  TEMPERATURE  ■  0.5400S7D*0)  <R 


TRANSVERSE  DISTRIBUTION  OP  TEMPERATURE 


TEMPERATURE  T  (*R) 


0.0 

* 

0.540040*03 

0.0075 

* 

0.5453*0*0) 

0.4150 

• 

0.544240*0) 

0.0225 

• 

0.544*00*01 

o.oioo 

• 

O.S4507D«O3 

0.0175 

• 

0.547400*03 

0.0450 

* 

0.549)70*0) 

0.0525 

• 

0.5519*0*0) 

0.0000 

• 

0.551710*01 

0.0075 

• 

0.554150*0) 

0.0750 

• 

0.55049D*0) 

0.0025 

• 

0.541350*0) 

0.0404 

* 

0.544120*0) 

0.0475 

■ 

0.54*940*03 

0.1050 

• 

0.5*9930*0) 

0.1125 

• 

0.572950*0) 

0.1200 

• 

0.57*050*0) 

0.1275 

• 

0.579210*05 

0.1)50 

• 

0.542420*0) 

0.1425 

• 

0.505*00*0) 

4.1500 

• 

0.1575 

* 

0.592)40*0) 

0.1050 

• 

0.595720*03 

0.1715 

* 

0.599150*0) 

0.  1004 

• 

0. *02570*0) 

0.1075 

• 

4.1454 

• 

4.2025 

• 

0. *12900*0) 

0.2104 

• 

0. *1*470*0) 

0.2175 

• 

0. *19970*0) 

0.2250 

• 

1.42)470*0) 

0.2125 

• 

0.42*940*0) 

0.2900 

• 

0.2475 

• 

0.41)950*0) 

0.2550 

• 

0.4)74)0*0) 

0.2025 

• 

0.2700 

• 

0.2775 

• 

0.447000*03 

4. 2050 

• 

0.0512)0*0) 

0.2425 

• 

0.454490*0) 

0.1000 

■ 

0.459040*0) 

0.1075 

• 

0.441430*0) 

0.1150 

• 

0.444790*03 

0.1225 

• 

0.040120*0) 

0.1)00 

• 

0.4714)0*01 

0.1175 

• 

0.474710*0) 

0.1450 

• 

0.477950*0) 

0.1525 

• 

0.401170*01 

0.1000 

• 

0.404)70*0) 

0.1075 

t 

0.407540*0) 

0.1750 

• 

0.440710*01 

0.4500 

• 

0.720070*0) 

4.5250 

• 

0.740250*0) 

0.0000 

■ 

0.77)190*0) 

0.7500 

• 

0.42 1420*01 

0.4250 

• 

0.0000 

• 

• . 072540*0 ) 

0.4750 

• 

0.0450)0*0) 

1.0500 

• 

0.417040*0) 

1.1250 

• 

0.410400*0) 

1.2000 

• 

0.457120*0) 

1.2750 

• 

0.47)020*0) 

1.1*00 

• 

0.900)00*0) 

1.4250 

■ 

0.100000*04 

1.5000 

■ 

0.101100*04 

0 

2.2500 

• 

0.104750*04 

1.0000 

• 

0.104000*04 

1.7500 

• 

0.5000 

5.2500 

• 

• 

0.104000*04 

5*5450*01  0 
5*51*0*01  0 
5**210*01  0 
5**770*01  0 
544010*01  0 
5*7440*01  0 
5*4570*01  0 
551450*01  0 
553470*01  0 
554*00*01  0 
555450*01  0 
541410*01  0 
544*00*01  0 
5*727D*03  0 
570210*01  0 
571240*01  0 
574140*01  0 
574520*03  0 
552740*01  0 
554010*03  0 
554110*01  0 
542450*01  0 
544040*01  0 
544450*01  0 
402410*01  0 
404170*01  0 
4044*0*01  0 
413110*01  0 
414520*01  0 
420120*01  0 
421520*01  0 
427110*01  0 
410510*01  0 
41*100*01  0 
437750*01  0 
4*1250*01  0 
4**700*01  0 
445150*01  0 
*51570*01  0 
*54440*01  0 
*50100*0)  0 
4*1740*01  0 
*45120*01  0 
400400*0)  0 
4  7 1 740 • C I  0 
*75010*0)  0 
*74270*0)  0 
*41*40*0)  0 
044*00*01  0 
*47440*0)  0 
44)400*0)  0 
72)710*01  0 
750040*0)  0 
775470*0)  0 


§44050*03 

504450*01 

504200*0) 

504470*0) 

544140*0) 

547440*0) 

549770*01 

551400*0) 

554200*0) 

554450*0) 

559220*0) 

541900*0) 

544490*01 

547540*0) 

570530*0) 

57)570*01 

574070*0) 

579040*0) 

501070*0) 

504)40*0) 

509*40*01 

50)020*0) 

594400*01 

594420*01 

403240*0) 

404720*0) 

010140*0) 

41)400*0) 

417170*0) 

420470*0) 

424170*0) 

4)1140*0) 

4)4450*0) 

4)0120*0) 

401540*0) 

445050*0) 

440440*01 

451410*0) 

4551)0*01 

450720*0) 

442100*0) 

440740*0) 

472040*0) 

475)40*01 

470540*0) 

401410*0) 

405010*0) 

404200*0) 

447000*0) 

724540*0) 

75)400*0) 

770140*0) 


0.507440*0) 
0.500740*0) 
0.500240*0) 
0.500000*01 
0.500)20*0) 
0.500020*0) 
0.504900*0) 
0.5521)0*0) 
0.550000*0) 
0.550900*0) 
0. 559010*0) 
0.542170*0) 
0.540970*0) 
0.547000*0) 
0.5700)0*0) 
0.57)070*0) 
0.574900*0) 
0.500140*03 
0.54)190*03 
0.544470*0) 
0.519990*01 
0.50)150*0) 
0.594740*0) 
0.400140*0) 
0.40)400*0) 
0.407040*03 
0.410500*0) 
0.410020*0) 
0.417520*0) 
0.421020*03 
0.420520*0) 
0.020010*0) 
0.4)1510*0) 
0.0)0990*0) 
0.4)4070*03 
0.441940*0) 
0.405)90*0) 
0.444410*0) 
0.452240*0) 
0.455S7U*«1 
0.459040*0) 
0.442040*0) 
0.045790*0) 
0.449120*0) 
0.472420*0) 
0.475400*0) 
0.474920*0) 
0.4021)0*0) 
0.445)10*0) 
0.440520*0) 
0.710000*0) 
0.729)40*0) 
0.755940*0) 
0. 700450*0) 


0.507270*0) 
v. 544400*0) 
0.544290*0) 
0.505090*0) 
0.544070*0) 
0.540210*0) 
0.550140*0) 
0.552)50*0) 
0.550440*0) 
0.557150*0) 
0.559740*0) 
0.542450*0) 
0.545250*0) 
0.544150*0) 
0.5711)0*0) 
0.574140*0) 
0.577)00*0) 
0.540040*0) 
0.54)720*4) 
0.547000*0) 
0,S90))0«0) 
0.59)400*0) 
0.597090*0) 
0.400510*0) 
0.40)950*0) 
0.407410*0) 
0.410090*0) 
0.414)70*0) 
0.417470*0) 
0.421)70*0) 
0.420470*4) 
0.424)40*0) 
0.4)1440*0) 
0.4)5)40*0) 
0.4)0020*0) 
0.442290*4) 
0.445740*0) 
0.449170*0) 
0.452400*0) 
0.454010*0) 
0.459400*0) 
0.402770*0) 
0.444120*01 
0.449450*0) 
0.472740*0) 
0.474010*0) 
0.479240*0) 
0.402«50*0) 
0.445450*0) 
0.4004)0*0) 
0.70)100*01 
0.7)2140*0) 
0.750000*0) 
0.70)150*0) 


0.504090*0) 
0.544520*0) 
0.5041/0*0) 
0.505210*0) 
0.5044)0*0) 
0.504)90*0) 
0.550190*0) 
0.552540*0) 
0.554920*4) 
4.557010*4) 
4.544010*4) 
4.5427)0*4) 
0.545500*0) 
4.544000*0) 
0.5710)0*0) 
0. 570040*0) 
0.577420*0) 
0.540410*0) 
0.544050*0) 
0.547)10*0) 
0.590440*0) 
0.5900)0*0) 
0.5970)0*0) 
0.400450*0) 
0.400290*0) 
0.007740*0) 
0.411200*0) 
0.410720*01 
0.414220*01 
0.421720*0) 
0.425220*0) 
0.424710*0) 
0.4)2200*0) 
0.4)5490*0) 
0.4)9170*0) 
0.4424)0*0) 
0.004040*0) 
0.449520*0) 
0.452940*0) 
0.454)50*0) 
0.059740*0) 
0.44)110*0) 
0.444440*0) 
0.449700*0) 
0.47)070*01 
0.474)10*0) 
0.474540*0) 
0.442770*0) 
0.405970*01 
0.449150*01 
0.704170*0) 
0.7)4490*0) 
0.740*00*0) 
0.745400*0) 


0.504500*0 

0.504020*0 

0.540)40*0 

0.5051)0*0 

0.544400*0 

0.544540*0 

0.550440*0 

0.552410*0 

0.555170*4 

0.557440*0 

0.540240*0 

0.54)000*0 

0.5454)0*0 

0.540740*0 

0.571710*4 

0.574490*4 

0.5779)0*4 

0.5411)0*0 

0.544170*0 

0.547470*0 

0.591000*0 

0.594)70*0 

0.597770*0 

0.401190*0 

0.400440*0 

0.404110*0 

0.411540*0 

0.415070*01 

0.414570*01 

0.422070*0 

0.425570*0 

0.429040*0 

0.4)2550*0 

0.4)4000*0 

0.4)9510*0 

0.402940*0 

0.4040)0*0 

0.409440*0 

0.45)240*0 

0.454490*0 

0.440070*0 

0.44)400*0 

0.444740*0 

0.470110*0 

Q.4?l400*0 

0.474450*0 

0.479440*0 

0.44)090*01 

0.444290*01 

0.409470*01 

0.709170*01 

0.7)7410*01 

0.74)150*01 

0.740170*01 


0.500200*0! 
0.500)50*0 
0.500000*0 
0.505000*0 
0.504940*0 
0.500740*0 
0.550420*0 
0.55)000*0 
0.555010*0 
0.557920*0 
0.500504*0 
0.50)240*0 
0.544110*0 
0.549000*0 
0.572000*0 
0.575110*0 
0.574250*0 
0.541050*0 
0.540700*0 
0.544000*0 
0.591)10*0 
0.594710*0 
0.594110*0 
0.401540*0 
0.400990*0 
0.404050*0 
0.4119)0*0 
0.419020*01 
4.414920*0 
0.422020*0 
0.429920*0 
0.429010*0 
0.412900*0 
0.4)4)90*0 
0.4)9040*0 
0.40)120*0 
0.494770*0 
0.450200*0 
0. 05)420*0 
4.4974)0*0 
••444010*0 
0.44)740*0 
0.4471 )0*0 
0.470000*0 
0.47)710*0 
0.474940*0 
0.400210*0 
•.44)010*0 
0.404*10*0 
0.449740*0 
0.712100*0 
0.700)10*0 
0. 749400*01 
•.740440*0! 
0.0 1 5000*01 
0.400040*0 
0.449)50*0 
O.04044O*# 
0.011020*0 
0.9)2410*0 
0.491710*0 
0.4400 50*0 
0.44«200*0 
0.947270*0 
0. 1004l0«0i 
0.l005)0*0i 
0.1 04400*0i 
0.10*000*0 
0.100400«0i 
0 . 1  0  400D*0< 


• • 545490*0) 
0.900290*4) 
4.544910*4) 
4.545590*4) 
4.547110*4) 
4.544970*4) 
0.5514)0*0) 
0.95)270*0) 
0.959490*4) 
0.954170*4) 
0.544410*41 
4.54)540*4) 
4.544440*41 
4. 949))0«4) 
4.572)40*4) 
4.575420*4) 

o!§4| 770*4) 
4.5454)0*4) 
4.900))O*4) 

0.549450*4) 
4.944450*41 
4.441440*4) 
4. 444)10*41 

o!*12240«4) 

4.415770*4) 

4.419170*41 

4.422770*41 

4.424240*4) 

0.424740*4) 

4.4) 1250*4) 

4.4) 47)0*4) 
4.444210*4) 

4.4471 |0*4l 
4.454950*4) 
4.49)940*4) 
4.997)40*4) 
4.494750*4) 
4.444120*4) 
*.447440*4) 
4.474770*4) 
4.47«450«4) 
4.477)00*4) 
4.444910*4) 
4.44)710*4) 
4. 444410*4) 

4.715440*41 

4.742400*4) 

4.740240*4) 

4.74)240*4) 


4.545410*4) 
4.944240*41 
4.944990*41 
4. 9457)0*41 
4.547)40*4) 
4.944170*4) 
4.991250*4) 
4.55)540*4) 
4.599940*4) 
4.5544)0*4) 
4.941400*4) 
4.54)040*4) 
4.544440*4) 
4 .9444 10*4) 
4.972450*41 
4.9757)0*4) 
4.570090*4) 
4.942100*4) 
4.909)00*4) 
4.504440*4) 
4.442410*01 
0.995)00*4) 
4. 490740*41 
4.4422)0*4) 
4.444400*4) 
4.444150*4) 
4.4124)0*4) 
4.414120*4) 
4.414020*4) 
4.42)120*4) 
4.420410*4) 
4.4)4110*4) 
4.01)440*41 
4.0)7440*4) 
4.404990*4) 
4.409410*4) 
4.447040*41 
4.054090*4) 
4.090)40*4) 
4.497740*4) 
4.401490*4) 
4.404450*4) 
4.447790*4) 
4.471140*4) 
4.474540*4) 
4.477450*41 
4.004450*4) 
4.004490*4) 
4.407250*41 
4.494410*4) 
4.717990*4) 
4.7t94)0*4l 
4.774720*4) 
4.795720*4) 


425920*0)  0 
450750*0)  0 
•7«920»0)  0 
494100*0)  0 
920010*0)  0 
900)40*0)  0 
050400*0)  0 
975)70*0)  0 
949710*0)  0 
100|00*0«  0 
102010*0*  0 
10*770*0*  0 
10*000*0*  0 
10*000*0*  o 
10*000*0*  0 


•24*10*0 ) 
45)210*0) 
•77200*0) 
900)50*0) 
922120*0) 
9*2)00*0) 

97**10*0) 
9*1 vit.O) 
J  0  0  )  Ctu*0* 
l0274w*0* 
10*700*0* 
|0*000«0* 
|0«000*0« 
10*000*0* 


0.4)09)0*0) 

•.099450*0) 

•.079*90*0) 

0.902990*0) 

0.924220*0) 

0.4««220*0) 

0.9*2)50*0) 

0.970*20*0) 

0.992)20*0) 

0.100*00*00 

0.l0>)*0«0* 

0.10*790*00 

0.104400*04 

0.104440*04 

0.100400*00 


0.4))«)0*0) 
0 , 090090*0 ) 
0.441090*0) 
•*90*420*0) 
0.92*290*0) 
0.99*120*0) 
0.94*040*0) 
0.979410*03 
0.99)590*0) 
0.100910*0* 
0.101410*09 
0.109400*09 
0.109400*09 
0.109400*09 
0.109400*09 


0.4)4410*0) 
0 . §90420*0  ) 

o!o074SO«0) 

o! 4*97 )0*0 1 
0.901 )7D*0) 

•! 100*10*00 
0.1091)0*09 
0.149000*09 
0.109000*09 
0.109400*09 
0.100400*09 


0. 442490*0 
•.•44440*0 
0.9042)0*0 
4. 9)0400*4 
0. 499470*0 
4.447)90*0 
•.942420*0 
4. 999070*0 
0. I 0072D*0< 
0.1 09 )70*0< 
0 . 104000*0' 

0.1 04f oo*o< 

0. 104400*04 
0.100400*04 


0.04)1*0*0) 
0.047740*0) 
•.04l240*O) 
0.91)990*0) 
0. 9)4440*0) 
0.959950*41 
0.470450*0) 
O.9094O0**) 
0. 490090*4) 
4.144410*40 
0.100440*00 
0.10O400*0« 
0.100000*00 
•# 1#O00O*OO 
O.1040OO*OO 


0.0490 50*0) 
•.070100*0) 
4.09)540*4) 
4.419740*0) 
0. 454950*0) 
0.959540*4) 
4.972250*41 
0.947020*0) 
0.999420*4) 
0.101010*40 
O.I44740«4O 
0. 1 04000*00 
O.IO4000*O4 
0.1 09000*04 
•.104000*04 


TRANSVERSE  DISTRIBUTION  of  STREAMHltC  VELOCITY 
VELOCITY  U  (FPS) 


0.4  0.215*00*01  0.4)1700*01  0.947790*01  0.491700*01 
0.142920*02  0.205410*02  0.210470*02  0.227040*02  0.2)6450*02 
0.279550*02  0.204990*02  0.209900*02  0.294720*02  0.249170*02 
0.)2I)40*02  0 . 124470*02  0.127450*02  0.1)0100*02  0.31)050*02 
0.397540*02  0.349740*02  0.1510)0*02  0.15)000*02  0.155430*02 
0. )64960*02  0.394)20*02  0.199440*02  0.371520*02  0.3730SD*02 


0.107020*02  0.120490*02  0.145000*02  0.102790*02  0.174050*42 
0.205010*02  0.25)500*02  0.2004)0*02  0.24755? *02  0.27)770*42 
0.303)70*02  0.307)40*02  0.SI111D*02  0,310040*02  0. >10140*02 
0.))5O9D*02  0.3)0200*02  0.140040*02  0.34)070*02  0.105)00*42 
0.357750*02  0.154020*02  0.101050*02  0. 10)230*02  0.100900*02 
0.374000*02  0.370090*02  0.177500*02  0.179000*02  0.3404l0*02 


Figure  B-2:  A  Sample  Printout  for  Program  Film  (Page  9), 


STP  507 


0*90  «  0.191790*02  0 . 363160*02  0.394490*0 2  0.365610*02  0.387110*02  0.368390+02  0.369680+02  0.390800+02  0.3*2100+02  0.193300+02 
0929  •  0.39449 0*02  0.195660 +02  0.396810*02  0.397950*02  0.399080*02  0.400190*02  0.401290*02  0.402370*02  0.801480*02  0.808900*02 
0600  •  0.409550*02  0.406590*02  0.407610*02  0.408630*02  0.409630*02  0.610620*02  0.411610*02  0.412580*02  0.411550*02  0.818500*02 
0675  •  0.415450*02  0.414390*02  0.417320*02  0.418240*02  0.419150*02  0.420060*02  0.420960*02  0.421850*02  0.822730*02  8.821*10*82 
0750  •  0.824480*02  0.425340*02  0.426200*02  0.427050*02  0.627890*02  0.428730*02  0.429560*02  0.430390*02  0.431210*82  8.812820*82 
0825  •  0.412810*02  0.433640*02  0.434440*02  0.435230*02  0.436020*02  0.436800*02  0.437580*02  0.438360*02  0.439120*02  0.419890*82 
09*0  •  0.440650*02  0.441410*02  0.442160*02  0.442910*02  0.441650*02  0.444190*02  0.445110*02  0.445560*02  0.486590*02  0.857110*02 
0975  •  0.448010*02  0.448750*02  0.449460*02  0.450170*02  0.450080*02  0.451550*02  0.452280*02  0.452980*02  0.051670*02  0.058160*02 
1050  •  0.455050*02  0.455710*02  0.456410*02  0.457090*02  0.457760*02  0.458410*02  0.459100*02  0.459770*02  0.460410*02  8.461890*02 
1125  •  0.461750*02  0.462410*02  0.463060*02  0.461710*02  0.464350*02  0.465000*02  0.465640*02  0.466280*02  0.466920*82  8.867590*82 
1280  «  0.468190*02  0.468520*02  0.469440*02  0.470070*02  0.470690*02  0.471320*02  0.471930*02  0.472550*02  0.471170*02  0.471780*02 
1275  *  0.474390*02  0.475000*02  0.475600*02  0.476210*02  0.476010*02  0.477410*02  0.478010*02  0.478610*02  0.479200*02  0.479790*02 
1150  •  0.480390*02  0.480970*02  0.481560*02  0.482150*02  0.482730*02  0.483310*02  0.583890*02  0.484470*02  0.485050*02  0.885620*02 
1429  •  4.486200*02  0.486770*02  0.487340*02  0.487910*02  0.488470*02  0.409040*02  0.489600*02  0.490170*02  0.498710*82  8.891290*02 
1500  •  0.491840*02  0.492400*62  0.492950*02  0.493510*02  9,494040*02  0.494610*02  0.495160*02  0.495710*02  0.494290*02  0.494800*02 
1575  •  0.497340*02  0.497800*02  0.498420*02  0.498960*02  0.499500*02  0.580040*02  0.500570*02  0.501100*02  0.501640*02  0.502170*02 
1450  •  0.502700*02  0.503230*02  0.503750*02  0.504200*02  0.504810*02  0.505310*02  0.505850*02  0.506370*02  0.506890*02  0.507410*82 
1725  *  0.507930*02  0.509450*02  0.509960*02  0.509490*02  0.509990*02  0,519500*02  0.511020*02  0.5U510*02  0.512010*02  0.512990*92 
1909  •  0.511050*02  0.513550*02  0.514060*02  0.514560*02  0.515070*02  0.515570*02  0.516070*02  0.514570*02  0.517070*02  9.517560*02 
1975  •  0.519060*02  0.519550*02  0.519050*02  0.519540*02  0.520030*02  0.520510*02  0.521020*02  0.521510*02  0.521990*02  0.522480*92 
1958  •  0,522970*02  0.523450*0 2  0.523940*02  0.524420*02  0.524910*02  0,525390*02  0.525970*02  0.526150*02  0,524910*02  0.527310*92 
2025  «  0,527790*02  0.529260*02  0.529740*02  0.529210*02  0.529690*02  0.510160*02  0.510610*02  0,511100*02  0.511590*02  0.512950*02 
2100  *  0.532510*02  6.532980*02  0.333450*02  0.533920*02  0.534380*02  0,534850*02  0.535310*02  0.535780*02  0.534240*02  0.516790*92 
2175  •  0.517160*02  0.537420*02  0.539080*02  0.539540*02  0.539000*02  0.539460*02  0.539910*02  0.540370*02  0.540920*02  0.541290*02 
2250  •  0.541730*02  0.542100*02  0.542640*02  0.543090*02  0.543540*02  0,543990*02  0.544440*02  0.544990*02  0.545110*02  0.545790*02 
2325  •  0.546230*02  0.546670*02  0.547120*02  0.547540*02  0.549010*02  0.549450*02  0.549990*02  0.549130*02  0.549770*02  9.550210*02 
2400  *  0.550650*02  0.551090*02  0.551530*02  0.551970*02  0.552400*02  0.552840*02  0.551290*02  0.551710*02  0.5M14D*«)  0.594590*02 
2475  «  0.555010*02  0.555440*02  0.555980*02  0.556310*02  0.556740*02  0.557170*02  0.557600*02  0.559020*02  0.559450*02  0.559990*02 
2550  •  0.559310*02  0.559730*02  0.560160*02  0.560590*02  0.561010*02  0.561430*02  0.561950*02  0.562290*02  0.562700*02  0.561120*02 
2625  •  0 .563540+02  0.563960*02  0.564390*02  0.564900*02  0.545220*02  0.565640*02  0.546050*02  0.564470*02  9.544990*02  9.967190*02 
2700  •  0.567720+02  0.568110402  0.568550+02  0.568960+02  0.549170*02  0.569780*02  0.570200*02  0.570410*02  0.571020*02  0.571410*02 
2775  •  0.571940+02  0.572250*02  0.572650+02  0.573040+02  0.573470*02  0.573990*02  0.574290*02  •.574690*92  9.975100*82  2.5T«590*92 
2959  •  0.575900*02  0.574310*02  0.576710*02  0.577120+02  0.577520*02  0.577920*02  0.579120*02  0.579720*02  0.579120*02  0.579520*02 
2925  •  0.579920*02  0.580120*02  0.590720+02  0.581120+02  0.581520*02  0. 581920*0 2  0.592110*02  0.592710*02  0.591110*02  0.591580*82 
1908  •  0.591900402  0.594290402  0.594490402  0.585090402  0.585490402  0.595970402  0.586260402  0.584650402  9.597050*02  0.597440*92 
3875  •  9.597030402  0.589220402  0.588610402  0.589000402  0.589390402  0.589780402  0.590160402  0.590550402  0.59899D402  0.591110*82 
1159  •  0.59(710*02  0.592100*02  0.592480402  0.592970*02  0.591250*02  0.591640*02  0.594020*02  0.594400*02  0.594790*02  0.595170*02 
3225  •  0.595550*02  0.595930*02  0.59*510*02  0.596690*02  0.597070*02  0.597450*02  0.597810*02  0.599200*02  0.599590*02  0.599960*92 
1189  •  0.599140*92  0.590710*02  0.600090402  0.600460402  0.400840402  0.401210402  0.491580*02  0.401950*92  9.682110*82  9.692790*92 
3175  •  0.603070402  0.605440402  0.603010402  0.604100402  0.604550402  0.604920402  0.605290402  0,605660*02  0,404020*92  9.696190*92 
1450  •  0.486760*02  0.607120*02  0.607490402  0.407040402  0.600220402  0.609590402  0.60895 0*02  0.409120*02  0,600600*02  9.410040*9 2 
1525  •  0.419410*92  0.419770402  9.611130*02  0.611500*02  0.611060*02  0.612220*02  0.612590*02  0.612950*02  0.611110*02  0.611670*02 
1600  •  0.614010*02  0.614190*02  0.614750*02  0.415120*02  0.615400*02  0.615040*02  0.616200*02  0.616560*02  0.616920*02  0.617270*02 
1675  •  0.617610*02  0.617990*02  0.610150*02  0,610710*02  0.619060*02  0.619420*02  0.619790*02  0.620110*02  •.620490*92  9.629990*02 
1759  *  9.621290*02  0.624750*02  0.620250*02  0.411710*02  0.615160*02  0.610570*02  0.641940*02  0.645290*02  0.648600*02  I.6fl9«0*«2 
4500  •  0.655140*02  0.456170*02  0.661570*02  0.664750*02  0.667900*02  0.671040*02  0.674150*02  0.677240*02  0.600110*02  I.6I1HDM2 
5250  •  0.486100*02  0.669190*02  0.692150*02  0.695300*02  0.699220*02  0.701110*02  0.703990*02  0.706090*02  0.709790*02  0.712710*82 
6000  •  0.715640*02  0.716410*02  0.721620*02  0.724620*02  0.727650*02  0.710700*02  0.731770*02  0.716950*02  0.719950*02  0.79}870*02 
6750  •  0.746200*82  0.749150*82  8.752510*02  0.755490*00  0.758880*02  0.762090*02  0.765110*02  0.769580*02  0.77|T90*02  0. 775050*02 
7500  •  0.778310*02  0.781620*02  0.784920*02  0.788230*02  0.791540*02  0.798910*02  0.798240*02  0.901630*92  9.905910*82  0.999910*92 
8250  •  0.911910*02  0.915210*02  0.919660*02  0.922100*02  0.925550*02  0.929020*02  0.912490*02  0.915980*02  0,919470*02  9.942990*02 
9000  •  9.946500*92  0.650020*02  0.951560*02  0.957100*02  0.940660*02  0.964220*02  9.967790*02  0.971170*02  0.070940*02  0.079960*02 
9790  •  0.002160*02  0.089790*02  0. 009400*02  0.091010*02  0.096640*02  0.900100*02  0.901950*02  0.907610*02  0.911270*02  9.914910*02 
0509  •  0.919410*02  0.922290*02  0.925970*02  0.929660*02  0.91)150*02  0.937050*02  0.940750*02  0.944440*02  0.949170*92  9.951890*92 
1259  •  9. 955600+02  0.959320*02  0.941040*02  0.946770*02  0.970500*02  0.974230*02  0.977960*02  0.491640*02  0.9954)0*92  9.494160*92 
2999  *  0.442400*02  0.446640*02  0.100040*0)  0.100410*03  0.100740*03  0.101140*03  0.101510*03  0.101410*03  0.102290*01  9.192650*93 
2756  *  9.103030*01  0.103400*03  0.101770*03  0.104140*03  0.104520*03  0.104990*03  0.105260*03  0.1956)0*01  9.196960*8)  9.196)70*91 
1599  *  9.106740*0)  0.107110*81  9.107480*0)  0.107840*03  0.108210*03  9.108580*03  0.109980*03  0.104310*01  0.194670*0)  8.119910*9) 
4259  *  9.110400*0)  0.110740*0)  0.111120*0)  0.111480*03  0.111840*03  0.112200*03  0.112550*01  0.112910*03  8.11)260*0)  0. 11)420*9) 
5099  *  9.11)470*0)  0.117940*0)  0.120860*03  0.124040*03  0.127040*03  9.124620*91  9.112370*9)  9.1)9710*9)  9.1)49)0*9)  9.119790*9) 
2599  *  9.149970*93  9.142020*93  9.143410*93  9.144650*93  0.145740*93  9.146700*93  9.147520*03  0.148190*01  0.149710*93  9.199940*93 
0999  •  0.149210*03  0.149240*03  0.144240*03  0.1492«0*03  0.144240*03  0. 144240*03  0.149240*01  0. 144240*0)  9. 144240*9)  9.199290*9) 
7599  •  9.149240*0)  0.144240*9)  9.149240*9)  9.149240*9)  9.144240*91  9.149240*91  9.144240*9)  9.144240*9)  9.144240*9)  0. 144240*9) 
5994  •  4.144240*9)  0.149240*9)  9.149240*41  9.149240*03  0.149240*9)  4.149240*41  9.149240*41  4.149240*9)  9.149240*4)  4.149250*4) 
2544  *  9.1492)0*4) 


Figure  B-2:  A  Sample  Printout  for  Program  Film  (Page  10). 


_ _ _  »— nrHy  CtMtMtMMan 


DOCUMENT  CONTROL  DATA  -  R  &  0 

(Skuh'v  ciaMilication  of  lilt*,  body  of  abstract  and  Indmlng  annotation  mutt  bo  antatad  whan  tha  ovorall  document  it  ctawiltad) 


1  ORIGINATING  ACTIVITY 


DEFENCE  RESEARCH  ESTABLISHMENT  SUFFIELD 


2a.  DOCUMENT  SECURITY  CLASSIFICATION 

UNCLASSIFIED 


2b.  GROUP 


X  DOCUMENT  TITLE 


A  CALCULATION  METHOD  FOR  CONVECTIVE  HEAT  AND  MASS  TRANSFER  IN  MULTIPLY- 
SLOTTED  FILM-COOLING  APPLICATIONS  (U) 


4.  DESCRIPTIVE  NOTES  (Typa  of  report  and  Inclutiva  dataal 


5.  AUTHORISI  ILatt  name,  firtt  nama.  middla  Initial) 


Murray,  S.B. 


Technical  Paper 


&  DOCUMENT  DATE 

JANUARY  198 


it.  PROJECT  OR  GRANT  NO. 


?a.  TOTAL  NO.  OF  PAGES  7b.  NO.  OF  REFS 

85  13 


9a.  ORIGINATOR'S  DOCUMENT  NUMBER  IS) 


PCN  27C02 


CONTRACT  NO. 


TASK  DMFR  14 


SUFFIELD  TECHNICAL  PAPER  NO.  507 


9b.  OTHER  DOCUMENT  NO.(S)  (Any  othar  numbart  that  may  ba 
attignad  thia  documant) 


10.  DISTRIBUTION  statement 

UNLIMITED  DISTRIBUTION 

11.  SUPPLEMENTARY  NOTES 

12.  SPONSORING  ACTIVITY 

13.  ABSTRACT 


A  computer  model  to  calculate  the  development  of  wall  jet 
boundary  layers  downstream  of  multiple  film-cooling  slots  is  described. 

The  differential  equations  for  the  conservation  of  mass,  momentum  and 
energy  in  an  incompressible  two-dimensional  or  axisymmetric  flow  are  solved 
using  a  downstream-marching,  iterative,  implicit,  finite-difference  scheme. 
The  turbulent  transport  of  mass  in  a  conventional  wall  boundary  layer  is 
described  by  means  of  an  inner-outer  two-layer  eddy-viscosity  model  based 
on  the  Prandtl  mixing-length  hypothesis  with  Van  Driest's  modification  in 
the  near-wall  region.  Further  alterations  to  include  the  effects  of 
pressure  gradients,  heat  and  mass  transfer  are  due  to  Cebeci  and  Smith. 

This  basic  model  is  extended  to  include  cases  with  tangential  fluid  in¬ 
jection. 

Computed  velocity  profiles  indicate  that  the  law  of  the  wall  is 
obeyed  in  the  inner  layer  and  that  the  outer  wake-like  layer  strives  to 
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overestimate  film-cooling  efficiency.  The  absence  of  an  eddy  term  to 
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gradient  flows  and  to  improve  the  predictive  capability  in  the  near-slot 
region. 
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